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v1 


I. INTRODUCTION 


A. BACKGROUND 


Combat operations are increasingly conducted during the hours of darkness. 
Operations at night give a decided tactical advantage to the technologically advanced 
force possessing night vision devices (NVD's). Helmet mounted NVD's used by aviators 
are limited, however, to the simple amplification of ambient light.[1] Operations 
involving NVD's must be planned to coincide with appropriate illumination. Since 
NVD's are passive, i.e. they merely magnify available light, they require a minimum 
amount of illumination to operate. Additionally, since they magnify light on the order of 
10,000 times (AN/PVSS: X10,000 gain, AN/AVS6: X25,000 gain)[1] , there can not be 
too much illumination or the NVD's will reach saturation and shutdown to protect their 
circuitry. Battlefield planners require a method for determining the time and location of 
astronomical phenomena such as sun rise, sun set, moon rise, moon set, and for 
determining the amount of light available from these phenomena. Previously, this 
information was available in tabular form in the Nautical Almanac or from a computer 
program called LITELEVL. 

LITELEVL is written in the ubiquitous GWBASIC. It is completely text based and 
runs only on MSDOS compatible personal computers.[2] LITELEVL 1s not optimized 
for any parameters and thus has a response time of many seconds for a single line of a 


planning calendar output. 


B. OBJECTIVES 


This thesis will produce an improved application of the tested illumination prediction 
algorithms. This application, called MOONLITE to differentiate it from its predecessor, 


has the following properties: 


e Platform independent. With proper libraries the source code may be compiled 
to run under Microsoft Windows™, Microsoft Windows NT™, IBM OS/2™, 
DOS™ (graphics mode), DOS™ (text mode), UNIX Motif, and (in the future) 
Apple Macintosh™. 


e Graphical User interface featuring pull down menus and point-and-shoot dialog 
boxes. 


e Event-driven architecture. 

e Object-oriented design for ease of maintenance and upgrading. 

e Ability to store multiple geographic locations for future analysis. 

e Increased speed. 

e Increased accuracy. 
C. SUMMARY OF THESIS 

1. Night Imaging Considerations 

This section investigates the basic concepts of illumination and illuminance. It 
presents a short tutorial on the nature of light, the movement of the heavenly bodies, and 
the effect of meteorology on local illuminance. It also examines the effects of altitude, 


geography, and human interpretation on the accuracy of predicted astronomical events. 


2. Prediction Algorithms 
Two separate algorithms are used in MOONLITE. They are referred to as the 
"fast" algorithm and the "accurate" algorithm. This chapter examines both algorithms. It 


reviews their relative strengths and weaknesses and briefly explores their coding. 


3. Testing and Validation 
Prior to its release to the subordinate units of the Department of Defense, 


MOONLITE must be tested and validated by the United States Naval Observatory. 


Initial testing was accomplished during coding. This chapter briefly introduces the 
benchmarks by which the data is judged. Rigorous testing will be accomplished at the 


Naval Observatory. 


4. User Interface 
The user interface 1s perhaps the most important part of a program. Regardless of 
the accuracy or efficiency of the underlying code, the user will either use or not use a 
program dependent upon the user interface. A great deal of time and effort was devoted 
to making MOONLITE's user interface intuitive, friendly, and efficient. This chapter 
examines the nuances of the user interface, detailing design considerations and decisions 


where necessary. 


5. Coding Considerations 
The coding of a program determines its accuracy and its efficiency. This chapter 
examines the general coding of the program. Class structures and data structures are 
examined in this chapter. Coding decisions and concerns are addressed, as are logic and 


program flow. 


6. Future Work Needed / Upgrades 
This chapter outlines future work which will be accomplished by the author at the 


next duty station. In addition, ideas for future enhancements are discussed. 


7. User's Manual (Appendix) 
This appendix is designed to serve as a user's manual for MOONLITE. It may be 
removed from the attached material and distributed with MOONLITE to the end user. It 


is designed to be concise enough to allow a person with limited technical background to 


install and use MOONLITE. It describes the input and output requirements in addition to 


presenting the reader with an easy to follow tutorial for anticipated actions. 


Il. NIGHT IMAGING CONSIDERATIONS 


A. THE NATURE OF LIGHT 


Light, as we will use the term here, is the portion of the electromagnetic spectrum 
which is visible to the human eye. The electromagnetic spectrum spans all frequencies 
from sub-aural (less than 20 Hz) to cosmic rays (1022 Hz) and beyond. Electromagnetic 
energy with a wavelength between 400 and 700 nanometers 1s visible to humans. We call 
this range the visible spectrum. Immediately below the human threshold of vision is the 
near infrared region.[1] 

Helmet mounted night vision devices used by aviators intensify available light. More 
specifically, they intensify the light which is reflected from an object. The amount of 
light reflected from an object is called luminance. An object's luminance is a function of 
how much light is striking the object, the illuminance, and the reflectivity of the object. 
With the same illuminance, a light object such as snow will have a greater luminance than 
a dark object such as an asphalt road. Prediction of night vision device's efficiency 1s 
confined to the prediction of the illuminance of all objects in a certain area regardless of 
their reflectivity and resultant luminance. [luminance is expressed in Lumens per square 
meter, or Lux. One Lux is equal to 0.0929 foot-candles. Table 1 shows the relative 


illuminance of various sky conditions.[1 ] 


TABLE 1. ILLUMINANCE LEVELS OF VARIOUS SKY CONDITIONS 


Sky Condition Approx. [lluminance (Lux) 
Direct Sunlight 1-1.3x 105 
Full Daylight (not direct) Le 2pallo 
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Solar light, light emanating from stars, the moon, and other solar phenomena, is 





principally comprised of wavelengths outside the visible spectrum. For this reason, Night 
Imaging Devices are designed with their principle sensitivity outside of the visible 
spectrum and more into the near infrared spectrum. Figure 1 illustrates the relative 
wavelengths of human visible spectrum with that of the night sky and two modern night 


vision devices.|[1] 


Relative Intensity / Sensitivity 
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Figure 1. Comparison of visible spectrum versus night vision devices 


The third generation AN-AVS6 Night Vision Goggles (NVG) are sensitive in an area 
well outside of the human visual spectrum. This greatly enhances their ability to amplify 


ambient light at night, but it hinders our ability to predict their efficiency as discussed in 


the next section. 


B. PROBLEMS WITH ILLUMINANCE PREDICTION 
1. Spectrum Selection 
Modern illumination algorithms are designed to predict illuminance, the amount of 
visible light present. There have been no definitive studies to date on the amount of light 
presented at the surface of the earth during the hours of darkness in a spectrum other than 
that of the visible spectrum. In practice, the United States Military assumes that the 
illuminance in the visible spectrum 1s directly proportional to the amount of light in the 


near infrared spectrum.[3] 


2. Atmospheric Attenuation 

Since all light reaching the surface of the earth from the cosmos must pass through 
the atmosphere, the composition of the atmosphere has a measurable effect on the 
attenuation of that light. 

The atmosphere 1s the most dense at the surface of the earth. As one increases in 
altitude the density of the atmosphere decreases. With this decrease in density, the 
attenuation effect of the atmosphere is also decreased. For computational purposes, the 
atmosphere is considered homogenous to an altitude of 8.46 kilometers. Using this 


simplification does not significantly alter the results of illuminance prediction. [4] 


3. Altitude Discrepancy 

The computation of astronomical phenomena is complicated at altitudes non- 
coincident with the surface of the earth. At high altitudes the atmosphere does not 
attenuate sunlight or moonlight to the same degree to which it does at sea level. The 
apparent rise and set of the heavenly bodies is offset at altitude. A person on the surface 
of the earth may observe sun set at the same time a person in a jet at 30,000 feet can still 
view the entire disc of the sun. 

Generally accepted phenomena such as civil and nautical twilight are also offset at 
altitude. Civil and nautical twilight are defined as the time at which the sun is six and 
twelve degrees, respectively, below the horizon. As with sun set, there will be more light 


at altitude during twilight than their would be on the surface of the earth.[3] 


4. Geographic Limits 
Although geographic limits may seem trivial, they still affect the prediction of 
astronomical phenomena. Astronomical phenomena is predicted relative to a plane which 


is assumed to be tangent to the surface of the earth at the observer's latitude and longitude 


at sea level. This assumption obviates the problems of a person standing on a mountain 
or in a valley and thus observing astronomical phenomena at a different time. 

Illuminance is predicted assuming that the earth is visible to the source of 
illumination at the desired moment in time. For example, if a full moon has just risen and 
is currently only ten degrees above the horizon, a person on one side of a mountain will 
be fully illuminated. A person on the other side of the mountain would still be in 
darkness. Shadowing and obscuration 1s not addressed by the prediction algorithms. It is 
incumbent upon the user of the algorithms to understand the limitations of the 


predictions. 


5. Meteorology 
Cloud formations, fog, smog, and other obscurants in the sky will attenuate the 
amount of light impinging upon the earth from celestial sources. It is possible to account 
for this attenuation in a computer program, but it requires the end user to determine the 
quantity of attenuation. Since most end users will not have equipment capable of 
measuring cloud density, MOONLITE does not allow the user to apply an attenuation 
scaling factor. Aviators must use the experience gained during their NVG qualification to 


determine the amount of NVG degradation due to meteorology.[1 ] 


6. Illuminance 
Illuminance, as described above, refers to the amount of light being shed on an 
object. MOONLITE predicts the amount of light available from astronomical sources. 
An NVG user, though, may have artificial light available from a nearby city or town, or 
from battle field illumination, burning oil wells, etc. It 1s impossible for a predictive 


program to consider the myriad of artificial sources of light that might be present. Again, 


the NVG user must use his or her experience to determine the amount of light available 


for NVG use. 


It. ALGORITHMS 


A. FAST VERSUS ACCURATE 


MOONLITE uses two different sets of algorithms for determining celestial 
phenomena. The fist set of algorithms is referred to as the fast algorithms and are 
iterative in nature. These algorithms are found in the United States Naval Observatory 
Circular No. 171. The fast algorithm's most glaring shortcoming 1s that it diverges at 
latitudes above 60 degrees north or south.[5] This divergence can manifest itself as a 
complete miss of a phenomena such as sun rise. A more subtle error, however, could 
occur where the algorithm produced output that although flawed, appeared to be correct. 
The fast algorithms are not used for prediction above 60 degrees north or south latitude. 

The other set of algorithms is referred to as the accurate algorithms. The accurate 
algorithms are currently being perfected at the United States Naval Observatory. These 
algorithms are interpolative in nature and will produce accurate output at any location on 
the earth. There is a trade off in processing time between the two algorithms. The 
accurate algorithms take substantially longer to compute an event than the fast 
algorithms. [3]. Although an advance copy of the accurate algorithm has been obtained 
prior to the completion of this thesis, they have not been implemented due to current 
instabilities which are being corrected by the Naval Observatory. MOONLITE was 
written to facilitate the accurate algorithms as soon as they are available. The remainder 


of this thesis will therefore deal with the fast algorithms. 


B. ACCURACY 


The design goal of the fast algorithm was to identify a phenomena within 0.5 degrees 
of its actual azimuth and altitude. The maximum temporal error, assuming a 0.5 degree 


error in placement, would therefore be two minutes. The temporal values are relative to 
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the mean time of the selected time zone. Each time zone (with variations for political and 
geographic anomalies) is fifteen degrees wide. Phenomena are computed using the time 
in the center of the time zone. An observer can expect a divergence from the predicted 
times relative to their distance from the center of the selected time zone.[3] 

Rounding of numbers may cause discrepancies larger than the target goals in some 
cases. Consequently, the last digit of angles and times should be considered uncertain. 
[3] 

Illuminance is given in Lux, and should be accurate to one or two digits. Due to local 
conditions (artificial light, meteorology, etc.) the calculated illuminance may differ from 
the actual illuminance by a factor of 10 or more.[3] 

The Moon's apparent phase is independent of Earth's atmosphere, but approximations 
in the equations for calculating it may produce errors of one or two units in the computed 
quantity .[2] 

MOONLITE was coded with all variables and constants defined as "double", thus 
internal computer "accuracy" is carried out to 64 bits using the IEEE real standard. This 


format allows representable numbers between -2,147,483,648 and 2,147,483,647.[A] 


C. ALGORITHM OVERVIEW 


1. General 
The fast algorithm is presented in reference [3]. The algorithm is presented in 
BASIC and FORTRAN. In order to make MOONLITE platform independent, it was 
necessary to code MOONLITE in C++. Originally, compiling the FORTRAN code and 
linking it into a C++ user interface was contemplated, but this approach was rejected due 


to possible incompatibilities in multiple platform object code. 


The FORTRAN and BASIC code was converted to C++ code for inclusion in 
MOONLITE. To aid in maintenance and debugging, the algorithms are designed as a 
separate class of MOONLITE named fast_algorithm. The C++ code for fast_algorithm 


may be found in Appendix A. 


2. Coding Considerations 

If one examines the original BASIC code and the MOONLITE code for the 
fast_algorithm class, one will notice that the MOONLITE fast_algorithm class does not 
use Subroutines. This is contrary to modern modular programming technique, yet seemed 
advisable for MOONLITE. Using passive profiling techniques, the fast_algorithm was 
identified as a computationally intensive, and thus time consuming, component of the 
MOONLITE program. Since the algorithm is somewhat linear in flow, it was coded to 
minimize loop iterations and subroutine calls, and thus maximize runtime efficiency.[7] 

By removing the subroutines and placing them "in-line", the code increased in 
length from 225 statements to 233, but it also removed 49 GOTO statements and 20 
GOSUB statements. 

Each GOSUB statement would cause a context switch with attendant overhead. 
The GOTO statement in GWBASIC, the language MOONLITE's predecessor was written 
in, 1s implemented by a linear search algorithm. MOONLITE uses structured 
programming to remove the GOTO statements. This structured technique allows the 
compiler to place a hard coded jump address in the machine code versus an iterative 
algorithm which takes multiple lines of machine code to implement. 

Where possible, code was hand optimized while converting from BASIC to C++. 


For example, in the original BASIC code are the following lines: 


340 FORL=1T04 (1) 
350 ON L GOTO 370, 650, 650, 360 


360 C = 347.81 
370 M=.5 + DT 


This was replaced with: 


for (int L= 1; L<= 4; L++){ 
if (L—=4) c = 347.81; 

if (L=1) || (L=4)) { 
m=0.5 + DT; 


} 
//code for BASIC tine 650 goes here 


This rewriting of the BASIC code removes four GOTO statements and replaces 
them with two IF statements. Since the GOTO statements cause an iterative loop of 


many cycles whereas the IF statements do not, the latter code is markedly faster. 
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(2) 


IV. TESTING AND VALIDATION 


A. TESTING 


1. Preliminary 

During the translation of the fast algorithms from reference BASIC and 
FORTRAN to the C++ code of MOONLITE, constant testing was performed to ensure 
parallel results. For two randomly selected cases, the BASIC code and C++ code was 
stepped and compared line by line to ensure matching results after each statement. 

Results between MOONLITE and LITELEVL are not exact. Discrepancies have 
been traced primarily to the way the two languages handle the trigonometric functions. 
Discrepancies manifest themselves as a difference in time of one minute or less. During 
initial testing, when a discrepancy was found between the BASIC handling of a SIN 
function and the C++ handling of the function, the calculation was run on an HP48SX 
calculator and on MATLAB V4.0 to compare results. In all cases the results of the HP 
calculator and of MATLAB matched the results of the MOONLITE C++ code. Thus, the 
MOONLITE C++ code 1s considered to be more accurate than the original BASIC code. 

Reference [5], table A, presents test cases for program certification. MOONLITE 
was tested locally against these standards and found to be within one minute of time and 
within 0.5 degrees to all parameters. This is within design specification, and thus shows 


that MOONLITE's C++ code 1s functioning properly. 


2. Final 
Prior to release, MOONLITE will be tested against the United States Naval 
Observatory test suite. The Naval Observatory has determined a number of test 
conditions which will test boundary conditions in the program. These boundary 


conditions are the most ill-conditioned points the program can be expected to handle.[3] 
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B. VALIDATION 


Upon completion, MOONLITE will be tested at the Unites States Naval Observatory 
by the Astronomical Applications Division. After successfully completing their tests, the 


program will be validated by the Observatory for use by the Department of Defense. 
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V. USER INTERFACE 


A. GENERAL 


There were four main criteria envisioned for the user interface. They were: 


e Must be relatively intuitive 
e Must be graphical 

e Must be transportable 

e Must minimize input errors 


To ensure that these criteria were met, MOONLITE was developed in Microsoft 
Windows using Borland C++ version 4.0. Standard Windows conventions were adhered 
to, for example, the upper left hand corner of a window contains a control box which will 


allow the user to minimize, maximize, move, or close the window.[8] 


B. MENUS 


All menus are standard pull-down menus allowing the user to select an option by 
clicking on that option with the mouse. Menus were designed as "sticky" menus, i.e. the 
user does not have to hold the mouse button down to keep the menu active. Menus may 
be accessed without a mouse by pressing the ALT key and the first letter of the menu 
choice. For example, the user may activate the FILE menu by pressing ALT F. 

MOONLITE's menus are only one level deep. This was a conscious design choice to 


ensure the most simplistic and thus most easily understood user interface. 


C. DIALOG BOXES 


Almost every menu choice leads to a dialog box. Each dialog box contains a HELP 


button which will activate context sensitive help for that dialog. Currently, context 


17 


sensitive help is disabled during research into the portability of Microsoft Windows help 


resources. 
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VI. CODING CONSIDERATIONS 


A. LANGUAGE CHOICE 


MOONLITE was written in Borland C++ version 4.0. This language was chosen for 
a number of reasons. First, C++ is the most ubiquitous object-oriented language in use 
today. MOONLITE was written using object-oriented techniques in order to facilitate 
future maintenance and upgradability. Second, NAVAIR has expressed interest in 
interfacing MOONLITE with TAMPS (Tactical Air Mission Planning System) and 
TAMPS is written in C++. Third, multiple platform libraries were available for C++. 
Borland's product was chosen as development suite because of its enhanced development 


and debugging tools. 


B. LIBRARIES 


ZAPP libraries were purchased from Inmark corporation for the development of 
MOONLITE. Inmark currently supplies libraries for Microsoft Windows™, Microsoft 
Windows NT™, Microsoft DOS™ (graphics mode), Microsoft DOS™ (text mode), IBM 
OS/2™, UNIX MOTIF™, and in the near future for Apple Macintosh™. Using these 
libraries, it is possible to recompile source code written to take advantage of the libraries 
for a different platform with out re-coding. This saves development cost and presents the 
end user with a consistent interface across multiple platforms. Currently, MOONLITE is 


compiled only for Microsoft Windows™. 


C. PROGRAM STRUCTURE 
1. Control Hierarchy 
MOONLITE is an event driven program. Event driven programs perform no 


function until prompted by an event. MOONLITE, once running, simply waits for the 


user to initiate an event. The most common event will be a menu choice, but it could also 
be a window resize, move, or termination. 

The top level of the MOONLITE program is the event handler. The event handler 
fields all events and then instantiates and sends a message to client classes as needed. A 


hierarchy of events is shown in Figure 2. 


Event Handler 


\ 


Restore 







Move 
Size 
Minimize 
Maximize 
Close 


Switch To 


NEW CUT ADD CALENDAR INDEX 


OPEN COPY EDIT SPOT DETAIL KEYBOARD 
SAVE DELETE POSITION CHART COMMANDS 
SAVE AS » DAILY EVENTS PROCEDURE 
PRINT USING HELP 
PAGE SETUP ABOUT 
PRINTER SETUP 

> EXIT 





Figure 2. Event Handling Hierarchy 


The single level menuing of MOONLITE is evident from Figure 2. Each menu 


option is modal in MOONLITE, 1.e. another option cannot be chosen until the user is 
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finished with the current option. Rewriting MOONLITE to handle MDI (Multiple 
Document Interface) may be an option for future enhancement. 

It is important that programs written to operate in a multitasking environment, 
such and Microsoft Windows or UNIX, be event-driven. An event-driven program will 
"sleep" when it is not fielding events. This allows maximum processor utilization since 
the program 1s not executing a "busy-loop" or polling for user input and thus allows other 


processes to execute while it 1s waiting for an event.[7] 


2. Classes 
As stated earlier, MOONLITE is written using object oriented techniques. Object 
oriented programming consists of encapsulating member functions and variables in a 
class, the instantiation of which is an object. The basic class hierarchy of MOONLITE is 


Shown in Figure 3. 
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Figure 3. Class hierarchy of derived classes 
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The base class from which most other classes are derived is ZEVH, the event 
handler. Derived from zEvh is zWindow and zFrameWin. ZFrameWin is a class which 
when instantiated and given focus presents a standard windows frame on the monitor. 
This frame can not hold text or graphics, but it can hold other windows which do hold 
text and graphics. ZFrameWin's purpose is to create a standard Windows window 
capable of resizing, moving, minimizing, maximizing, and terminating. [8] 

Derived from zFrameWin is zAppFrame and MenuFrame. ZAppFrame is a 
special zFrameWin which is designed to be the topmost window of an actual application 
such as MOONLITE. Code segment (3) illustrates the code used to instantiate the upper 
level application window for MOONLITE. 


MenuFrame *mainWnd=new MenuFrame(0,new zSizer(10,10,625,520),zSTDFRAME,"MOONLITE"); (3) 


Code segment (3) instantiates a new instance of a class of MenuFrame with an 
attendant pointed called mainWnd. In its constructor, it sets a default window size using 
the class zSizer. In this instance the window's upper left hand corner starts at pixel 10,10 
and ends at pixel 625,520. This size is aesthetically pleasing for a standard 1024 X 768 
pixel display. 

After instantiating the main application window the menu items are added. The 
menu itself was created using the resource workshop of Borland C++. Using the resource 
workshop, a description of the desired menu 1s created then passed to the main 
application window for display. Code segment (4) shows the only MOONLITE line of 


code needed to attach a menu to the parent application. 


menu(new zMenu(this, zResId(MENU_MAIN))); (4) 


Ze 


Code segment (4) instantiates a new zMenu and passes an identification number to 
the constructor. This identification number is assigned to the menu resource and is a 
method of uniquely identifying resources. A portion of the menu description is shown in 
code segment (5). One can see that the menu description includes the displayed title of 
the menu item, its parent menu item, a control key keyboard shortcut if available, and an 


identity number to be passed to a function should that menu item be called. 


POPUP "&File" (5) 
{ 

MENUITEM "&New", ID. MENU_FILENEW 

MENUITEM "&Open...", ID. MENU_FILEOPEN 

MENUITEM "& Save", ID. MENU_FILESAVE 

MENUITEM "Save &as...", ID. MENU_FILESAVEAS 

MENUITEM SEPARATOR 

MENUITEM "&Print...", ID. MENU_FILEPRINT, GRAYED 

MENUITEM "Page se&tup...", ID. MENU_FILEPAGESETUP, GRAYED 
MENUITEM "Périnter setup...", ID. MENU_FILEPRINTERSETUP, GRAYED 
MENUITEM SEPARATOR 

MENUITEM “E&xit", ID. MENU_FILEEXIT 


} 


In order to have our desired function called when menu item is selected, it is 
necessary to override the default event handler for each menu item. Code segment (6) 


illustrates how the event handler is overridden. 


doExit,ID_ MENU_FILEEXIT); (6) 


menu()->setCommand(this,(CommandProc)& MenuFrame:: 


menu()->setCommand(this,(CommandProc)&MenuFrame: 
menu()->setCommand(this,(CommandProc)&MenuFrame:: 
menu()->setCommand(this,(CommandProc)& MenuFrame:: 
menu()->setCommand(this,(CommandProc)&MenuFrame:: 
::FileOpen,[D_.MENU_FILEOPEN); 


menu()->setCommand(this,(CommandProc)&MenuFrame 


menu()->setCommand(this,(CommandProc)&MenuFrame:: 
menu()->setCommand(this,(CommandProc)& MenuFrame: 
menu()->setCommand(this,(CommandProc)& MenuFrame:: 
menu()->setCommand(this,(CommandProc)& MenuFrame: 


:AddLocation,ID_MENU_LOCS_ADD); 


EditLocation, ID. MENU_LOCS _ EDIT); 
DeleteLocation,ID_. MENU_LOCS_ DELETE); 
FileSave, ID. MENU_FILESAVE); 


FileNew,ID_MENU_FILENEW); 


‘SpotData,ID_MENU_SPOTDATA); 


Event,ID_MENU_DAILYEVENTS); 


‘Position, ID_MENU_POSITION); 


Here again we see an identifying number passed to each function in the form of a 
descriptive name. The file defines.h contains a list of all identifiers used in MOONLITE 
and their corresponding numeric identifier. Numeric identifiers are arbitrarily chosen. In 


MOONLITE each logical grouping is given its own hundreds digit identifier with 


ZS 


member items being numbered sequentially. Code Segment (7) is an example of some 


identifiers from defines. h. 


#define MENU_MAIN 100 (7) 
#define ID_ MENU_POSITION 118 
#define ID. MENU_FILENEW 101 
#define ID. MENU_FILEOPEN 102 
#define ID. MENU_FILESAVE 103 
#define ID. MENU_FILESAVEAS 104 
#define ID. MENU_FILEPRINT 105 
#define ID. MENU_FILEPAGESETUP 106 
#define ID_ MENU_FILEPRINTERSETUP 107 
#define ID. MENU_FILEEXIT 108 


In C++ each define is substituted by its defined value at compile time. Thus 
ID MENU _ FILEEXIT is replaced at compile time by the number 108. Using "define" 
statements makes the code more readable and decreases the chances of assigning a wrong 
identifier to a function. 

Each menu function instantiates a type of zZFormDialog. MOONLITE handles all 
input and output through the use of dialog boxes. This technique allows the end user to 
size and move output windows on the monitor to suit their individual taste. There are 
eight dialog classes. Each dialog class begins with "C_dlg” to identify it as a class and a 


dialog. These classes are examined in the next section. 


3. Program Flow 

When a user selects a menu item, that item's corresponding class is instantiated 
and called. Focus 1s passed to that class (always a dialog) and retained until the dialog is 
closed and deleted. As an example of program flow, we will trace the flow of the menu 
selection RUN|SPOTDATA. 

When a user initially rans MOONLITE, the program places itself in memory and 
attempts to read a file called moonlite.dat. If that file is not found, MOONLITE presents 
a warning message to the user telling them that the data file was not loaded. If the file 


was found, MOONLITE loads the locations stored in moonlite.dat into a linked list. This 
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linked list 1s passed to all of the dialogs from this point on in the program. Each dialog 
requires that the user select a location for which they would like output. Using a linked 
list allows a (theoretically) unlimited number of locations to be stored by 
MOONLITE.{[10] 

Once MOONLITE 1s initialized, it waits for the user to generate an event. In this 
case we will assume that the user points to the menu item RUN and selects the member 
item SPOTDATA. From code segment (6) we see that menu item 
ID_RUN_SPOTDATA 1s associated with event handler MenuFrame::Spotdata. 
MenuFrame::Spotdata is comprised of the following code: 


MenuFrame::SpotData(zCommandEvt *ce) (8) 
{ 
routines *engine = new routines(Il); 
engine->spotdata(); 
delete engine; 
return(1); 


} 


MenuFrame::Spotdata creates a new object of type routines, and assigns a pointed 
named "engine" to point to that object. Notice that "II" the linked list of locations was 
passed to the class "routines" as part of the constructor. Once the class is instantiated as 
an object, the object is sent the message "spotdata”. 

The code associated with routines::spotdata 1s shown in code segment (9). 


routines::spotdata() (9) 


{ 
C_dlg_spotdata *dlg spot = new C_dlg_spotdata(Il, zResld(SPOT_DETAIL)); 


delete dig spot; 
} 


Here again, this object creates a new object of the type C_dlg spotdata. This 1s 
our dialog and the location where MOONLITE will interact with the user. Since 
C_dlg_ spotdata always accomplishes the same task, the bulk of the user task is included 


in the constructor of the class and 1s automatically executed. 
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The code for C_dlg_spotdata is too lengthy to list here, but it is included in 
Appendix B. C_dlg_spotdata creates a dialog box with the necessary controls to prompt 
the user for the required input. It also contains read only controls for the display of 
output. 

Like the main application, the dialog box for C_dlg_spotdata is event driven. 
Once instantiated, it waits for the user to generate an event. Assuming that the user 
wishes to continue with the spotdata, he or she will (in any order) select a location, a date, 
and a time. Each time an event is generated, C_dlg spotdata examines the event and 
takes action on it. If the user selects a location, the dialog updates its internal variables 
with the data from the selected location. 

The dialog has built in error reduction. A user may only choose the options that 
are available. He or she may not input anything from the keyboard. For example, the 
months of the year are presented to the user in a pulldown selection box. The user may 
only choose one of the twelve months. Once the user selects one, the dialog will analyze 
the choice and change the remaining dialog boxes to reflect that choice. For example, if 
the user selects "January", the dialog will change the possible selections of the day to 
include 31. If the user selects "February", the dialog will check the year to see if itis a 
leap year and present the appropriate number of days for the user to select. This pseudo 
real-time error checking reduces the number of errors a user can create. If a user should 
select the 29th day of February and later change the year to one that was not a leap year, 
MOONLITE will clear the day selected and highlight the day control to indicate to the 
user that they must select a new day. 

Once the user selects a location, MOONLITE will compute the desired data on the 
fly each time the user changes a control. MOONLITE accomplishes this by examining 


the complete data set of the dialog box each time the user generates an event. Actually, 
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MOONLITE waits until the user completes an event, but to the user that is invisible. If 
the dialog is complete, i.e. the minimum number of controls to produce meaningful 
results have been selected and properly activated, MOONLITE instantiates the algorithm 
and passes the data to the new instantiation. When the algorithm returns the data, 
MOONLITE passes that data to the dialog's read-only controls for display. 

When the user selects the DONE button, MOONLITE backs out of each class 
calling its destructor and freeing any memory used by that class. At this point 
MOONLITE is again in its initial state and waits for another event. 

By designing MOONLITE to always return to its initial state, memory 
requirements are kept toa minimum. MOONLITE does not "hold" any memory aside for 
data storage or for computations. All memory requests are dynamic with the current 
event. MOONLITE was written to reduce its memory requirements after every operation 
for several reasons. First, when operating in a multitasking environment, MOONLITE 
ensures a maximum amount of memory available to the other processes. Second, when 
operating in a single task environment such as DOS, it 1s possible to overlay different 
class instantiations and therefore allow MOONLITE to operate in a much smaller 
memory area. MOONLITE therefore has a minimum impact on multitasking systems 


such as Microsoft windows™. [7] 


4. Calendar Optimization 
One of the most used functions of LITELEVL, and thus of MOONLITE is the 
planning calendar. The planning calendar presents the user with a graphical 
representation of illuminance levels for an extended duration. A typical request for the 
calendar option 1s to print the illuminance levels for a specific location from sun set to 


sun rise every night for a six month period. Calculating the calendar is the most 


A)) 


processor intensive procedure MOONLITE must accomplish. The old LITELEVL 
program frequently took more than a minute to compute one line of the calendar. One 
line corresponds to one nights worth of data. Inspection of the LITELEVL code reveals 
that besides using time consuming GOTO and GOSUB statements, the program used a 
brute force method of computing the calendar line. 

LITELEVL attacked a planning calendar line in the following fashion: First, it 
computed the daily events for the current day. Then it computed the illuminance every 
ten minutes from 1700 until 0800 the next day, 82 points total. It then computed the 
daily events for the next day. 

MOONLITE uses a more dynamic approach to the problem. MOONLITE first 
calculates the daily events for the current day. This calculation results in the sun rise, sun 
set, moon rise, and moon set. Using this data, MOONLITE compares the sun set time to 
the moon rise time. If the moon rises after the sun sets, MOONLITE automatically fills 
in the calendar line with the appropriate symbols to show that either the sun was still 
above the horizon or that the moon had not yet risen. If the moon rises after midnight 
MOONLITE fills in the entire first half of the calendar line with the symbol for the moon 
having not yet risen. If the moon rises before midnight, MOONLITE fills in the symbol 
for moon not risen up to the time of moonrise. From this point until either moon set or 
sun rise, MOONLITE uses a modified binary search algorithm to determine the state of 
illuminance. 

Aviators only wish to know four conditions on a planning calendar: the sun is 
above the horizon, the moon is below the horizon, the sun is below the horizon and the 
illuminance is below a threshold, or the sun is below the horizon and the illuminance is 
above a threshold. Once the moon has risen, MOONLITE computes the illuminance for 


the first period. MOONLITE allows the user to select the period between calculations. 
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LITELEVL only calculated at ten minute intervals. MOONLITE then jumps four 
blocks forward and calculates the illuminance. Ifthe illuminance results in the same 
category as the illuminance four blocks prior, MOONLITE fills in the sandwiched 
intermediate blocks with the same symbol. If the illuminance results in a different 
category, MOONLITE jumps back two blocks and computes that illuminance symbol. If 
the symbol is the same as the first symbol, MOONLITE fills in the second block with the 
same symbol and computes the third block. If the symbol is different from the first 
symbol, MOONLITE computes the second block. MOONLITE then compares the 
second block to the fourth block. If they are the same, if fills in the third block. If they 
are different, 1f computes the third block. 

Using this jump and evaluate method, similar to a binary search, MOONLITE 
dramatically reduces the amount of calculations needed for each line of the calendar. At 
a minimum, if the moon never rises, MOONLITE will make no illuminance calculations 
and two daily event calculations. On the average, MOONLITE appears to make 
approximately seven illuminance calculations per calendar line. 

Since both LITELEVL and MOONLITE make two daily event calculations per 
calendar line, we can compare the illuminance calculations for a rough indication of 
output speedup between LITELEVL and MOONLITE. LITELEVL always makes 82 
calculations per line. Thus MOONLITE ts 82/7 as fast as LITELEVL, or accomplishes a 
speedup of a little over eleven times the output speed of LITELEVL. 

MOONLITE also enjoys a performance increase from the use of Borland's C++. 
The C++ language is an extremely terse, compact, and efficient language. Borland'’s C++ 
compiler uses a number of optimization techniques such as common subexpression 
elimination, copy propagation, and invariant code motion to further increase the runtime 


efficiency of the code. The final version of MOONLITE will be available in processor 
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specific versions which will optimize MOONLITE for use on that processor. The 
processor specific versions will take advantage of optimization techniques such as 
strength reduction and branch offset optimization. [5] 

Figure 5 shows a single line from the planning calendar for a location at 36 
degrees, 35.2 minutes north, 121 degrees, 50.6 minutes west on the 4th of November, 
1993 with an offset of eight hours from Greenwich mean time. Figure 5 illustrates the 
order in which MOONLITE would analyze the example calendar line. Even though 
MOONLITE uses ten calculations on this line, it is still far faster than LITELEVL which 
calculates 82 points. 

The jump MOONLITE makes between calculations nine and ten deserves 
explanation. MOONLITE compares every point prior to midnight to the point at 
midnight. As soon as there is a match, MOONLITE fills in the symbols and jumps to the 
first block after midnight. MOONLITE compares every point after midnight to the last 
point prior to sun rise. Again, as soon as there is a match, MOONLITE fills in the 
symbols between the two points. In our example, the symbol just after midnight and the 
symbol just prior to sun rise match, therefore MOONLITE fills and finishes. 

From this example one can see that MOONLITE must make more calculations 
when the moon 1s most dynamic and fewer calculations when the moon 1s fairly static. 
The moon is most dynamic relative to the higher latitudes. Above sixty degrees north or 
south latitude, the moon could rise and set many times during a night. Indeed, at the pole, 
the moon could "hover" right on the verge of rising and setting.[9] Because of the ill- 
conditioned behavior of the moon at high latitudes, MOONLITE only uses this pseudo 


binary search routine with the fast algorithms at latitudes less than sixty degrees. 
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Figure 7. An example of MOONLITE's pseudo binary search algorithm 
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VIT. FUTURE WORK NEEDED / UPGRADES 


A. FUTURE WORK NEEDED 


MOONLITE is not fully complete at this time. Although functional, some menu 
options and button choices are not activated. Per an agreement with the Naval Air 
Warfare Center in Warminster, Pennsylvania, the author will continue to work on the 
MOONLITE project at his next duty station to complete the MOONLITE project. 


The following items need to be completed: 


3 Write PAGE SETUP routines 

2 Write PRINTER SETUP routines 

E Write PRINT function 

2 Activate EDIT|COPY to allow copying data to Windows clipboard 
2 Activate context sensitive help 


° Implement accurate algorithms 


With the exception of implementing the accurate algorithms, all of the items 
remaining to be completed are dependent upon cross-platform considerations. For 
example, the PAGE SETUP, PRINTER SETUP, and PRINT routines can all be 
implemented using a single windows call each in Microsoft Windows™. When 
MOONLITE is ported to Microsoft DOS™, however, these calls will not be available. 
The author is awaiting receipt of DOS libraries prior to writing these routines to ensure 


their ability to compile both under Microsoft Windows™ and Microsoft DOS™. 


By 


B. FUTURE UPGRADES 


During the design phase of MOONLITE, numerous Marine Corps and Navy pilots 
were queried regarding their desires in a program such as MOONLITE. From their 


responses, a list of future enhancements is proposed. 


e Allow Dynamic Data Exchange from MOONLITE 


e Add an option to print a graphical representation of moon azimuth and 
altitude versus time. 


e Compile MOONLITE for use on the Apple Macintosh™. 
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APPENDIX A: USER'S MANUAL 





ion 


Welcome to MOONLITE'! 


MOONLITE is a computer program that predicts the normal daily 
celestial events such as sunrise, sunset, moonrise, moonset, and the 
phase of the moon. Additionally, MOONLITE calculates the 
amount of light being cast upon the surface of the earth from the 
sun, moon, and stars. 


This initial release of MOONLITE is written to run within 
Microsoft Windowsa. Depending on the need for such versions, 
future versions of MOONLITE may run on Microsoft DOS™, on 
the Apple Macintosh™, and on UNIX-based workstations under 
MOTIF. Users of MOONLITE will experience a familiar 
interface regardless of which platform they use. 


MOONLITE is distributed on a single 3'’%”, 1.44 Megabyte 
diskette and requires Microsoft Windowsa version 3.0 or higher to 
run. 


MOONLITE was developed at the United States Naval 
Postgraduate School in Monterey, California by Captain Michael 
T. Lester with advice and guidance from Doctor Douglas J. Fouts 
and Doctor Paul M. Janiczek. 





9 8S SS— lI. ————— ES 
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Questions regarding the programming or operation of 
MOONLITE, reports of bugs (1 hope not!), or suggestions for 
future enhancements may be sent via E-mail to 
“moonlite@ece.nps.navy.mil”’. 


I have endeavered to make MOONLITE as user-friendly and 
efficient as possible and hope you enjoy its use. 


Whats N ew! 


MOONLITE is a completely new product! 


The following is a list of MOONLITE's new features: 


Runs under Microsoft Windows 

Graphical User Interface 

Stores locations for future use 

Optimized 

Variable time periods in Calendar and Position Chart 


MOONLITE runs under Microsoft Windows. By writing 
MOONLITE to run under Windows we were able to take 
advantage of Window's Graphical User Interface (GUI) assuring 
you, the user, the most intuitive, easily used interface available. 


MOONLITE's Graphical User Interface takes advantage of pull- 
down menus, dialog boxes, hot-key activation, and window sizing. 


MOONLITE allows the user to store a virtually unlimited number 
of locations for future use. Multiple data files may also be used. 


MOONLITE is optimized. MOONLITE is based on the same 
algorithms used by LITELEVL and SLAP, but they have been 
optimized and implemented in a way that ensures the fastest most 
accurate data available from these algorithms. MOONLITE was 
written using the most modern programming techniques which has 
resulted in a response time that is ten times faster than the old 
LITELEVL program. 


WW 
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Whats Not N ew! 


MOONLITE uses the same algorithms as Litelev] and SLAP. 


The output of the Position Chart and the Planning Calendar are 
unchanged. This was a conscious design decision. We believe that 
most users of MOONLITE are so familiar with the output of 
Litelevl that changing the format would be counter-productive. 


Installation 


General 


MOONLITE is distributed on a single 3%”, 1.44 Megabyte 
diskette. The disk contains the following four files: 


Ih. 
2. 


oF 
4. 


MOONLITE.exe The MOONLITE program 
MOONLITE.dat A data file of pre-loaded geographic 
locations 

MOONLITE.doc A Winword copy of this document 
Setup.exe The MOONLITE setup file 


Installing MOONLITE on your Hard Drive 


Or, 


Start Microsoft Windows. 

Place the MOONLITE diskette in the disk drive. 

Open the “Main” Group by double clicking on the group 
entitled “Main” in the Program Manager. 

Open the File Manager by clicking on the file manager icon 
in the Main group. 

Click on the appropriate drive letter for your machine. On 
your machine, it may be drive A or drive B. 

Double click on the file entitled “setup.exe” in the drive 
window. 


Choose the menu option FILE | RUN from the Program 
manager 

Type in “A:\setup.exe” or “B:\setup.exe” depending on 
which drive your MOONLITE diskette 1s in. 





Setup 


MOONLITE’s setup program will perform the following tasks: 


hy Create a directory on the C: drive called “MOONLITE" 

2. Copy the files from the A: (or B:) drive to the newly 
created directory 

cy Create a program group called MOONLITE 

4, Place an icon for the MOONLITE program in the 
MOONLITE group 





Running MOONLITE 


From the Hard Drive 


After installing MOONLITE using the Setup program as described 
above, MOONLITE may be run by double clicking on the 
MOONLITE icon. 


From Diskette 


MOONLITE may be run from a floppy diskette although loading 
time will be greatly reduced if the executable file, 
MOONLITE.exe, is placed on your hard drive. 


To run MOONLITE from the diskette: 


IL. Start Microsoft Windows. 
; Place the MOONLITE diskette in the disk drive. 
oe Open the “Main” Group by double clicking on the group 
entitled “Main” in the Program Manager. 


4. Open the File Manager by clicking on the file manager icon 
in the Main group. 

Sy Click on the appropriate drive letter for your machine. On 
your machine, it may be drive A or drive B. 

6. Double click on the file entitled ““moonlite.exe” in the drive 
window. 

Or, 


l. Choose the menu option FILE | RUN from the Program 
manager 

2D Type in “A:\moonlite.exe” or “B:\moonlite.exe” depending 
on which drive your MOONLITE diskette 1s in. 
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MOONLITE was designed to be as intuitive and user friendly as 
possible. When you first start MOONLITE you will be presented 
with the main MOONLITE screen seen below. 


[= MOONLITE a + [=] 
| File Edit Locations Run Help } 





MOONLITE has five main menu choices: File, Edit, Locations, 
Run, and Help. 


Unlike MOONLITE’s predecessor, LITELEVL, MOONLITE 
allows the user to store geographic locations for future use. Asa 
matter of fact, MOONLITE demands that the user load a location 
prior to use. This feature saves the user from looking up the 
latitude and longitude over and over every time they run the 
program. It also ensures that the user receives the data for the 
same latitude and longitude once they select a location. 


When MOONLITE is first started, it looks for a file called 
“MOONLITE.dat”. This file contains the geographic locations 
that have been previously stored in MOONLITE. There is 
theoretically no limit to the number of locations a user can store. 
The maximum number of locations a user can store is determined 
by the amount of memory the user has available. If MOONLITE 
can not find the data file, it warns the user that the data file is not 
found. 


WARNING 


Moonlite.dat not found. 
No locations loaded 





If you see this warning, it means that the file “moonlite.dat’” was 
not located in the default directory nor in your current path. By 
clicking on the “OK” button, MOONLITE will continue to load 
and run. 


In order to allow the user to maintain geographic locations in 
logical groups, MOONLITE allows the use of of many data files 
although only one file may be in use at any time. By pulling down 
the FILE menu from the main MOONLITE screen, the user may 
choose to open a new data file or save a current data file. 


For the time being, we will assume that the default data file 
*“moonlite.dat” was loaded when MOONLITE was first started. 








Since there are a number of locations pre-loaded with the 
MOONLITE program, we can proceed directly to the RUN menu 
to get our first results. 


Clicking once on the RUN menu displays the output options that 
are available from MOONLITE. Lets find out when the Daily 
Events take place today. Click on the option “Daily Events”. 


MOONLITE now displays the dialog box for daily events. This 
dialog box is used both for you to tell MOONLITE what data you 
would like, and for MOONLITE to display that data for you. 


Daily Events 


@ Local 


Date 
" {Choose oration) FS Oval 


SUN MOON 
Mendian Passage Mendan Passage 


re = rise rie. 
Set Alutude: fi | eet Alvtude fd 
Daylight 


Morning Crit twilight begins: Evening Cri Twilight Eads. {9000 
Moming Nautical Twilight Begins’ [p99 Evening Nautcal Twilight Eads 





To determine the Daily Events, MOONLITE Needs to know the 
location and the date for which you desire data. 


By clicking on the arrow to the night of the box entitled 
“Description”, the one with “[Choose Location]” in the box, 
MOONLITE will display a list of the currently loaded locations. 
For this example, click on the location entitled “CA: Monterey”. 
You can see that as soon as you made your selection, MOONLITE 
started giving you data. Right now, that data is for January 1, 1986 
since that is the default date. By choosing the date the same way 
we chose the location, by clicking on the arrow on the right side of 
the combination box and selecting one of the options from the list, 
we can view data for any date within MOONLITE’s operating 
range. 


HINT: Combination boxes can be activated by clicking anywhere 
on the box, not just on the arrow on the right side. 
SS a 
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For our example here, choose June 16, 1994. As you finish 
selecting the last parameter, MOONLITE has already updated the 
information and is displaying it in the lower half of the dialog box. 


In this case, the Daily Events dialog looks like this: 


Daily Events 


Meridian Passage Mendian Passage 


Time ee Tine 


vrouse (Fr) m pause 
Devioh: [lam] 


Morning Civil twilight begins Eventwng Crvil Twilight Ends: 
Marming Nautcal Twilight Begins Evening Nautical Twilight Ends 





Here in one easy to read dialog box we can see the location for 
which we desired data, the date for which we requested the data, 
and the data itself. 


If you wish a print out of this data, you simply click once on the 
“Print” button on the bottom of the dialog box. For now, we want 
to explore some other parts of MOONLITE, so click on the “Done” 
button to return to the main MOONLITE screen. 


Let's select the next option without the use of the mouse. You will 
notice that all of the menu options have one letter underlined. This 
letter indicates the “hot-key” which will activate the menu. By 
pressing down the “Alt” key and the letter that is underlined at the 
same time, we can activate the menu. 


Press the “Alt” key on the keyboard and while continuing to hold it 
down, press the “R” key. Now let go of both keys. 


You can see that the RUN menu was activated. You will also 
notice that each menu option inside of the RUN menu also has a 
hot-key associated with it. Since we already have the menu’s 
attention, we don’t need to use the Alt key this time, we only need 
to press the letter of the option we want. We have already looked 
at the Daily Events, so lets look at the Spot Detail this time. Since 
“S” is underlined in the “Spot Data” option, press the “S” key. 








MOONLITE has responded by bringing us to the Spot Data dialog 
box. This dialog box is similar to the Daily Events dialog box, and 
we will tell MOONLITE what data we want in the same way. 


Lets look at the spot data for Montery, CA on August, 21, 1994 at 
9:00 O’clock in the morning. 


Choosing the location is done the same as it was in the Daily 
Events dialog box, so is choosing the month. When we try to 
choose the 2] st day, however, we see that the selections only go to 
16. We need to scroll the choices down to reach the other dates. 
We can do this by clicking anywhere below the position box on the 
scoll bar on the right side of the choices, or we can scroll one 
choice at a time by clicking on the down arrow on the bottom of 
the scroll bar. 


But wait a minute! We weren’t going to use the mouse this time, 
right? You can still enter all of the information. You will notice 
that the Location combination box is highlighted right now. That 
means that it is active and that keystrokes entered on the keyboard 
will affect that control. Since we want to look at “CA: Monterey”, 
you can press “C” to have MOONLITE jump to the first choice 
that begins with “C”. Since that isn’t the choice we want, use the 
down arrow on the keyboard to scroll through the other options. 


When “CA: Monterey” is highlighted, we can move to the next 
contol by pressing the tab key. When you pressed the tab key you 
notice that the focus shifts to the Month box. If you want to go 
back to the description box, press “alt-tab”. 


We enter the desired time in the same fashion. 


After we are done, the Spot Detail dialog looks like this: 


WN 


Spot Detail 


Description 


cAwONTEREY dD 


@ Local 


Date — BL 
SC Roya 


Moon Sun 
Azimuth (deg_) Azimuth (deg.) 
Altitude (deg) Altitude (deg ) 
Phase (%) 
luminance (LUX) luminance (LUX) 


Total illuminance (Sun « Moon): | 72598 3437 





Just as in the Daily Events, we can press the “Print” key to get a 
printout of our data; we can select other dates, times, or locations; 
or we can press the “Done” key to end this event. 


Go ahead and press the “Done” key. We have more exploring of 
MOONLITE to accomplish. 


What happens if the location for which we desire data isn’t in 
MOONLITE’s database? 


That is easy! We just add it! 

From the main MOONLITE Screen, choose the Locations menu 
option. The locations menu allows you to Add, Edit, or Delete a 
location from MOONLITE’s database. 


Let’s add a location by selecting “Add” from the menu. 


MOONLITE presents the Add Location dialog box to allow us to 
add our location. 





ON 


LOCATIONS 


Description GMT Offset 


Pea | 


Degrees Minutes 


Latitude @n Os 
Longitude OE @w 


[<] Conforms to Daylight Savings 





Here we need to fill in an english description of the location, how 
many hours the location is offset from Greenwich Mean Time, the 
location's latitude and longitude, and whether or not this location 
uses daylight savings time. 


The first item we need to enter is the name of the location we are 
adding. The DESCRIPTION box should already be highlighted. 
If it is not, we can move to it by pressing TAB to move to the next 
box, or SHIFT-TAB to move to the previous box. When the 
Description box is highlighted, type the location "Test Location". 
We will use this location just to demonstrate. When you are done 
typing, press TAB to move to the next field. 


The GMT Offset box in MOONLITE allows you to enter a number 
with a decimal point. This is useful if the location you are adding 
does not conform to the hourly standard. For example, some 
places in Norway are offset from Greenwich Time by 45 minutes. 
If this were the case, you would enter 0.75 for the GMT Offset. 
For most locations, though, you will enter a whole number. Let's 
assume that "Test Location" is located in California. California 1s 
offset eight hours from Greenwich Time, so we will enter an "8.0" 
in the GMT Offset box and press TAB to move to the next field. 


In the Latitude and Longitude boxes values are entered in degrees, 
minutes and tenths of minutes. If you have a location specified by 
minutes and seconds, you will have to convert to minutes and 
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tenths of minutes. This is a simple conversion accomplished by 
dividing the number of seconds bu 60. The answer is tenths of a 
minute. For example, assume a location of 43° 20' 30". This 
should convert to 43° 20.5". 


The last field of the Add Location Dialog Box is one entitled 
"Conforms to Daylight Savings Time." By checking this box, 
MOONLITE will add one hour to all input and output times when 
a corresponding box entitled "Use Daylight Savings Time" is 
checked on the Spot Data, Position Chart, Planning Calendar, or 
Daily Events dialog boxes. If this box is not checked, then even if 
you check the "Use Daylight Savings Time", the time will not be 
incremented. In this way, you may tag "Use Daylight Savings 
Time" when Daylight Savings is in effect and know that only those 
locations that conform to Daylight Savings will be affected. 


After you have finished filling out the dialog it will look like the 
one below. If you are satisfied with the entries, press "Save" to 
save this data. If any of the numbers you have entered are outside 
of allowed parameters (for example, a latitude greater than 90 
degrees), MOONLITE will warn you that an entry was not allowed 
and return you to the field that was in error. 


Your dialog box may look slightly different depending on what 
numbers you input for the latitude and longitude of your "Test 
Location". 
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Description GMT Offset 


Degrees Minutes 
Lsitude [2] [450] @n Os 
Longitude fiz1 | OE @w 












[><] Conforms to Daylight Savings 





We should point out here that the Test Location you just entered is 
only stored in memory. It has not been saved to the disk yet. If 
you try to quit MOONLITE or open a new location file, you will 
recelve a warming from MOONLITE that your locations have 
changed. MOONLITE will give you the opportunity to save your 
changes or to discard them before continuing. 


If you want to save the location you just entered, you can use the 
menu option FILE/SAVE to save all of the locations currently in 
memory to the default file moonlite.dat. If you wish to save the 
locations in a different file, you can use the menu option FILE | 
SAVE AS. SAVE AS allows you to specify a file name and 
directory for your data file. 


At the time this manual was written, the Position Chart and 
Planning Calendar are not fully implemented. Descriptions of their 
operation will be added after completion. 





Men 


The File Menu 





The File menu contains options for opening and saving location 


data files, seting up printer options, printing, and for closing the 
MOONLITE program. 


The File menu looks looks like this: 





ee RE OEE CORTE EVR FEE OE LRU Ae ee hee rns ou REe EERE bed rN one re me Pre owenEEwemEaeE Brees 


MOONLITE 


Open... 
Save 


Save as... 


Print... 
Page setup... fg 
Printer setup... Ba 


Exit } 





File | New 


This option is used to create a new locations data file. The new 
location data file will be empty. See LOCATIONS|ADD to learn 
how to add locations to a data file. 








File | Open 


This option is used to open an existing locations data file. When 
you select this option, you will be presented with a Windows file 
selection dialog box. When you have selected a data file, 
MOONLITE will open that file and read the locations into 
memory. 


File | Save 


This option is used to save the locations presently in memory to the 
hard drive or floppy disk. Selecting this option causes 
MOONLITE to overwrite the file that is currently in use. For 
example, if MOONLITE is using moonlite.dat for a data file and 
you have added locations, then selected FILEJSAVE, MOONLITE 
will overwrite moonlite.dat with the new locations. All locations 
currently in memory will be written to the file. The effect is that 
you have just added your new locations to the locations that were 
previously stored in moonlite.dat. This is the recommended 
method for adding locations to the data file. 


File | Save as... 


This option is used to save the locations currently in memory into a 
file other than the one currently in use. For example, if 
MOONLITE is using the file moonlite.dat as a data file, and you 
added some new locations and want them saved to a file named 
something other than moonlite.dat, you would choose FILE|SAVE 
AS.... 


File | Printer setup... 


This option allows you to determine the way MOONLITE will 
interact with your printer. It allows you to select printers, and to 
access their options menu. Using this menu you will be able to 
determine print quality and orientation. 


File | Exit 


This option is used to exit the MOONLITE program. If you have 
made any changes to the locations in memory, MOONLITE will 
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warm you that your changes are not saved and ask whether or not 
you want MOONLITE to save the files for you. You may also 
quit MOONLITE by double clicking in the upper-left hand corner 
of the main MOONLITE window. 


The Edit Menu 


The only option available on the Edit Menu is Copy. You may use 
this option to copy information displayed in MOONLITE to the 
standard Windows clipboard for inclusion in other applications 
such as Word processors. 


The Locations Menu 


The Locations Menu Looks like this: 
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Locations | Add 


The LOCATIONS|ADD option is used to add new locations to the 
list of locations currently stored in memory. MOONLITE will 
store a (theoretically) unlimited number of locations and is 
constrained only by the amount of memory available. New 
locations added via the LOCATIONS|ADD option are not 
automatically saved to disk. To save additions you must use either 
the FILE|SAVE or FILE|SAVE AS options. 


Locations | Edit 


The LOCATIONSJ|EDIT option is used to Edit locations already in 
memory. To edit a location stored in a data file on disk, you must 
open the file for use, edit the desired locations, and save the file 
back to disk. 
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Locations | Delete 


The LOCATIONS|DELETE option is used to remove locations 
from memory. To remove a location from a data file, you must 
open the file for use, delete the desired locations, and save the file 
back to disk. The LOCATIONS|DELETE dialog box is identical 
to the LOCATIONS|JADD and LOCATIONSJEDIT dialog boxes 
with the exception that the Save button has been replaced with a 
Delete button. You select a location to delete just as you do a 
location to edit, buy using the pull-down list box labeled 
"Description". 


The Run Menu 


The run menu is the heart of MOONLITE. It is here that you will 
choose the output you desire and initiate the dialog boxes for the 
different Run options. The Run menu looks like this: 

MOONLITE 


vu 
i 


Spot Detail 


(iA 
a 


Position Chart 





Run | Calendar 


The RUN|CALENDAR option is probably the most used option of 
MOONLITE. You use this option to generate a light level planning 
calendar. 


This option is not yet fully implemented and will be further 
expounded upon when completed. 


Run | Spot Detail 


The RUN|SPOT DETAIL option is used to access information 
about a particular location at a particular time. This option 
requires you to choose a location, a date, and a time. It returns the 
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azimuth, altitude and illuminance of the sun and moon, the total 
illuminance of the sun and moon combined, and the phase of the 
moon. 


You may choose to look at many different locations, dates, or 
times before closing this dialog. Each time you change any 
parameter, MOONLITE will recalculate the data on the fly and 
display the results. When you are finished with the dialog, click on 
the DONE button. 


If you wish a print-out of the data, click on the PRINT button. 
MOONLITE uses the default printer selected for Windows. 


A HELP button is provided should you have any question about 
any option or parameter in the Spot Detail dialog box. 


Spot Detail 


Time @ Local 
Zulu 


Date 
O 


Moon Sun 
Azimuth (deg.) Azimuth (deg) 
Altitude (deg.) Altitude (deg.) 
Phase (%) 
Iluminance (LUX) luminance (LUX) 


Total illuminance (Sun + Moon): |72598.3437 





Run | Position Chart 


This option is not yet fully implemented and will be further 
expounded upon when completed. 
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Run | Daily Events 


The RUN|DAILY EVENTS option is used to access information 
about a particular location. The option requires you to select a 
location and a date. MOONLITE will respond with the time of 
Sunrise, Sunset, Moonrise, Moonset, meridian passage of both the 
sun and moon, and the times of the beginning and end of civil and 
nautical twilight. 


If you wish a print-out of the data, click on the PRINT button. 
MOONLITE uses the default printer selected for Windows. 


A HELP button is provided should you have any question about 
any option or parameter in the Spot Detail dialog box. 


Daily Events 


Descnpton Date @ Local 


[Jun [as (Oz 


SUN MOON 
Mendian Passage Meridian Passage 


Time: Time: 
Set Aintude: [7___| Atutude: 
Deylignt 


Morning Crvil tenlight begins: Evening Cril Twilight Ends: 


Moming Nautical Twilight Bagins: Evening Nautical Twilight Ende: 





The Help Menu 


This option is not yet fully implemented and will be further 
expounded upon when completed. 





APPENDIX B: SOURCE CODE 


BITMAP.H 


/ 

/f Copyright (c) 1994 Michael t. Lester 
// All rights reserved. 

| 


#include"zapp.hpp” 


class BmpShowPane : public zPane { 
zBitmap “bmp; 
zBitmapDisplay *bmpdisp; 
BOOL fileOpen; 
public: 
BmpShowPane(zWindow’, zSizer’*); 
~BmpShowPane(; 
void display(char’); 
int draw(zDrawE vt’); 
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CONSTANT.H 


ee eT 8 Meee eee e Tee e ee ee RHR RHHHHHHHHKHKAKKKKKKKKhhkkhhhhhik 


constants.h 


Constants needed moonlite.cpp and associated files 


IN NSE aah a al ld ala a data lat al aided lala 


#ifndef constant_h 
#define constant_h 


char *months{ = {"Jan", "Feb", "Mar", "Apr", "May", "Jun","Jul", "Aug", "Sep", "Oct", "Nov", "Dec", 0}: 


char *“days28[] = ("01 a "02", "03", "04", 205°, “OG; “Or: "08", "09", "4 0", 
a i ae wA2 aS ae "14", gale "16", ea ae "18", "19" "20", 
aw, 1 oe "22: "20. "24", n2o™ "20. P20 "20 . 0}; 


char *days29[] a {"01 9 "02", "O03, "04", "05", "06", i OY aoe "08", "09", "4 0", 
an 1 ue a 2. o Ce "414" aa 5. me 6", "4 a "4 8", mal 9", "20", 
"21 ie "22. Zo "24", C2 Oe =O: aa gr "28", "29", 0}; 


char “*days30{j = {'01", "02", "03", "04", "05", "06", "07", "O08", "09", "10", 
ag | i hie a nae "4 Se "14" "4 Be "16", oar dane "4 8", "19", "20", 
"2 1 a De 20. "24", "25. a20.. a aT hee "20: "29", "30", 0}; 


char “days31fJ = {'01", "02", "03", "04", "05", "06", "07", "08", "O09", "10", 
PWN Oe 14 tO Or te. 10 1 os, ZO. 
WAR CoS Geen eo, CO 2! pacou 2£oq oO. 
Sl 0}, 


char *years{] ={ "1986", "1987", "1988", "1989", "1990", "1991", "1992", "1993", "1994", "1995", "1996", 
"1997", "1998", "1999", "2000", "2001", "2002", "2001", "2002", "2003", "2004", 


"2005", 0}: 


char *hours{] = { "00", "01 es "02", "Os: . "04", "05°. "06", cOT "08", "09", 
"10", ~ ‘le. ga a ELS. "14", a Fes ™16". sas I ae Wey fo te "19" 
20". a | on ho 5 "20 . "24", 0}; 


char “minutes[}={ "00", "01", "02", "03", "04", "05", "06", "07", "08", "09", 
“A021 et AS PA ot Gs lie) 18" 19" 
OE 24228238", 24" “25cr76cee27" “284 2O" 
QO so qtr a9" 934!) "94" 696" "96" "37" "3B" "90". 
Cage tAadn A" "Aattags edb" "46" "47" "4B" "49" 
"50", "51", "52", "53", "54", "55", "56", "57", "58", "59", 
0}: 


char ‘resolution{j = {‘1", "5", "10", "15", 0}: 


57 


char *GMToffsetf] = { "00", TOs “OZan e033". "04", 05:4 "06", EO?’ . "08", 209". 
Ges “4 1 Wee lee 0}: 


#tendif //define constant 
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DEFINES.H 


[ERR RRR RRR RIGO II Ra I GK 


OK KK 


constants.h 


Constants needed moonlite.cpp and associated files 


RRR ORR OR RRR ORR ORR OR RR RR RR GR RR RR OR OR OR OK ko kok ak 
# KK / 


#ifndef defines _h 
#define CM POPUPITEM 101 
#define defines h 


#define TRUE ] 
#define FALSE 0 
#define MENU_ MAIN 100 
#define ID MENU_ POSITION 118 
#define ID MENU_FILENEW 101 
#define ID MENU_FILEOPEN 102 
#define ID MENU_FILESAVE 103 
#define ID MENU_FILESAVEAS 104 
#define ID MENU_FILEPRINT 105 
#define ID MENU_FILEPAGESETUP 106 
#define ID MENU_FILEPRINTERSETUP 107 

#define ID MENU_FILEEXIT 108 
#define ID MENU_EDITUNDO 109 
#define ID MENU_EDITCUT 110 
#define ID MENU_EDITCOPY 111 
#define ID MENU_EDITPASTE 112 
#define ID MENU_LOCS_ ADD 113 
#define ID MENU _LOCS EDIT 114 
#define ID MENU _LOCS DELETE i es 
#define ID MENU_CALENDAR 116 
#define ID MENU_SPOTDATA 117 


obey 


#define ID MENU_DAILYEVENTS 
#define ID MENU HELPINDEX 

#define ID MENU_HELPKEYBOARD 
#define ID MENU_HELPCOMMANDS 
#define ID MENU HELPPROCEDURES 
#define ID MENU _HELPUSINGHELP 
#define ID MENU_HELPABOUT 


#define DIALOG SETTINGS 
#define ID S_ BEGINMONTH 
#define ID S BEGINDAY 
#define ID S BEGINYEAR 
#define ID_S_ BEGINHOUR 
#define ID S BEGINMIN 
#define ID S ENDMONTH 
#define ID S ENDDAY 
#define ID S ENDYEAR 
#define ID S ENDHOUR 
#define ID S ENDMIN 
#define ID S LOCATION 
#define ID S THRESHOLD 
#define ID S PERIOD 
#define ID S_ FAST 

#define ID S ACCURATE 
#define ID S LOCAL 
#define ID S GREENWICH 
#define ID S_ PRINT2FILE 


#define DIALOG LOCATIONS 
#define ID_L_ DESC 
#define ID_L_GMT 
#define ID_L_LATDEG 
#define ID_L_ LATMIN 
#define ID_L_N 

#define ID_L_S 

#define ID_ L_LONDEG 
#define ID_L_LONMIN 
#define ID_L_E 

#define ID_L_W 
#define ID_L_DST 
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IY) 
120 
121 
WAZ 
| e8 
124 
Ws 


200 
201 
202 
203 
204 
205 
206 
Z0y 
208 
209 
210 
211 
212 
Ze 
214 
Z\> 
216 
Ze 
218 


300 
301 
302 
303 
304 
305 
306 
307 
308 
B09 
310 
311 


#define LOCATION DELETE 
#define ID LD DESC 
#define ID LD GMT 
#define ID LD LATDEG 
#define ID LD LATMIN 
#define ID LD_N 

#define ID LD S 

#define ID LD _LONDEG 
#define ID LD LONMIN 
#define ID LD E 

#define ID LD W 
#define ID LD DST 


#define EDIT LOCATION 
#define ID ED DESC 
#define ID_ED_ GMT 
#define ID ED LATDEG 
#define ID ED LATMIN 
#define ID ED _N 

#define ID ED S 

#define ID ED LONDEG 
#define ID ED LONMIN 
#define ID ED E 

#define ID ED _W 
#define ID ED DST 


#define SPOT_DETAIL 
#define ID_ SPOT DESC 
#define ID SPOT _MONTH 
#define ID SPOT_DAY 
#define ID SPOT YEAR 
#define IDC_GROUPBOX3 
#define IDC_GROUPBOX4 
#define ID SPOT HOUR 
#define ID SPOT_MIN 
#define ID SPOT LOCAL 
#define ID SPOT_ZULU 
#define ID SPOT _MAZ 
#define ID SPOT_MAL 
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400 
401] 
402 
403 
404 
405 
406 
407 
408 
409 
410 
41] 


500 
501 
502 
503 
504 
505 
506 
07 
508 
509 
510 
511 


600 
601 
602 
603 
604 
605 
606 
605 
606 
607 
608 
609 
610 


#define ID SPOT_MPR 
#define ID SPOT _MIL 
#define ID SPOT_SAZ 
#define ID_SPOT_SAL 
#define ID SPOT_SIL 
#define ID SPOT_TIL 
#define ID_SPOT_PRINT 


#define EVENTS 

#define ID EVENT DESC 
#define ID EVENT MONTH 
#define ID EVENT_DAY 
#define ID EVENT YEAR 
#define ID EVENT SUNRISE 
#define ID EVENT SUNSET 
#define ID EVENT SUNTIME 
#define ID EVENT SUNALT 
#define ID EVENT MOONRISE 
#define ID EVENT MOONSET 
#define ID EVENT _MOONTIME 
#define ID EVENT MOONALT 
#define ID EVENT _AMCIV 
#define ID EVENT. _AMNAT 
#define ID EVENT _PMCIV 
#define ID EVENT _PMNAT 
#define ID EVENT PRINT 
#define IDC_GROUPBOX1 
#define IDC_GROUPBOX2 
#define ID EVENT DAYLIGHT 
#define ID EVENT LOCAL 
#define ID EVENT ZULU 


#define POSITION 
#define ID POS DESC 
#define ID POS_MONTH 
#define ID POS DAY 
#define ID POS YEAR 
#define ID POS BHOUR 
#define ID POS _BMIN 
#define ID POS DONE 
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611 
612 
613 
614 
615 
616 
617 


700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
ple 
716 
717 
718 
719 
720 
122) 
722 


800 
801 
802 
803 
804 
805 
806 
812 


#define ID POS LOCAL 
#define ID POS ZULU 
#define ID POS RES 
#define ID POS DONE 


#define Position_Chart 

#define POS CHART _LATLON 
#define POS CHART_DATE 
#define POS CHART_ARRAY 
#define POS CHART PRINT 
#define POS CHART_DONE 


#define ICON_1 


#define DESC_LENGTH 


#endif //define constant 
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809 
810 
811 
812 


900 
901 
902 
208 
904 
905 


9992 


30 


DIALOGS.H 


I 
// dialogs.h 
I 


#ifndef dialogs.h 
#define dialogs.h 


#include "Il.h” 
#include "zapp.hpp” 
#include "defines.h” 
#include "Il.h” 


Class C_dlg_locations : public zFormDialog { 
friend class locations_list; 
locations _list “Il; 
zString _location; 
float _latmin, _lonmin, _GMT; 
int_E,_N, _DST,_latdeg, londeg; 
location_ struct data; 
zDefPushButton *Ok_Pressed; 


public: 
C_dig_locations(locations_list *,zWindow *,zResld&); 
int doOK(); 
char *location(Q { return(char *)_location;}; 
int find(char *); 
}: 


class C_dlg_loc_del : public zFormDialog { 


friend class locations_list; 
locations_list “Il; 

zString _location; 

float _latmin, _lonmin, _GMT; 
int_E, N, DST, _latdeg, londeg; 
location_struct data; 

node *temp; 

zDefPushButton *Ok_Pressed; 
zComboBox “Ib_desc; 

zintEdit *“Latdeg, *Londeg; 
zFloatEdit *Latmin, “Lonmin, *UGMT; 
zCheckBox *UDST; 

zRadioGroup *UEW, *UNS; 


public: 
C_dlg_loc_del(locations_list *, ZWindow *,zResid&, node’); 
char *location() { return(char *)_location;}; 
lbChanged(zEvent *); 
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I 
class C_dlg_loc_edit : public zZFormDialog { 


friend class locations_list; 
locations_list “Il; 

ZString _location; 

float _latmin, _lonmin, _GMT; 
int_E,_ N, DST, _latdeg, _londeg: 
location_struct data; 

node “temp; 

zDefPushButton *Ok_Pressed:; 
zComboBox “Ib_desc; 

zintEdit *Latdeg, *Londeg; 
zFloatEdit *Latmin, “Lonmin, *UGMT; 
zCheckBox *UDST; 

zRadioGroup *UEW, *UNS; 


public: 
C_dlg_loc_edit(locations_list *, z2Window *,zResid&, node*); 
char “*location() { return(char *)_location;}: 
IbChanged(zEvent *); 


} 
class C_dlg_spotdata : public zZFormDialog { 


locations_list “Il; 

ZString _location, temp_desc; 

float _latmin, _lonmin, _GMT; 

int_E, N, DST, _latdeg, _londeg; 

float saz, sal, _sil,_maz,_mal,_mil, _mpr, _til; 
int_month, day, _year, hour, _min, _local; 

float lo, f, iy, z, h; 

int id, im, test; 

location_struct data; 

zDefPushButton *Ok_Pressed; 

zComboBox “*Ib_desc, “Ib_month, “Ib_day, “Ib_year, *Ib_hour, *Ib_ min; 
zFloatEdit *saz, “sal, “sil, “maz, *mal, *mil, *mpr, *til; 
zRadioGroup “local; 


public: 
C_dlg_spotdata(locations_list *,zResld&); 
/ichar *location() { return(char *)_location;}: 
IbChanged(zEvent *): 


}: 

class C_dig_Event : public zFormDialog { 
locations _list “Il; 
zString _location, temp_desc; 
float _latmin, _lonmin, _GMT; 


int_E, _N, DST, _latdeg, _londeg; 
float sr, _sst, st, sa, _mr,_ms,_mt,_ma, _ac,_an, _pc, _pn, _dl; 
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int_month, _day, year, hour, _min, _local; 

float lo, f, iy, z, h; 

int id, im, test; 

location_struct data; 

zDefPushButton *Ok_Pressed; 

zComboBox *Ib_desc, *Ib_month, *Ib_day, “Ib_year, “Ib hour, *Ib_min; 
zFloatEdit “sr, *sst, “st, “sa, *mr, *ms, *mt, *ma, *ac, “an, “pc, “pn, “dl; 
zRadioGroup “local: 


public: 


VE 


C_dig_Event(locations_list *,zResld&); 
lichar *location() { return(char *)_location;}; 
lbChanged(zEvent *); 


class C_dlg_Pos : public zFormDialog{ 


zPushButton *Done; 

zComboBox “Ib_desc, “*Ib_month, “Ib_day, “Ib_year, “Ib_res, 
*Ib_bhour, *Ib_bmin, *lb_ehour, *Ib_emin; 

zRadioGroup “local; 

locations_list “Il; 

zString _location, temp_desc; 

float _latmin, _lonmin, _GMT; 

int_E, N, DST, _latdeg, _londeg; 

float saz, sal, _sil, maz, _mal, _mil, _mpr, _ til; 

int_month, day, _year, bhour, bmin, ehour, emin, local, _res; 

float lo, f, iy, z, h, delta; 

int id, im, test; 

zString monthstr; 

zString daystr; 

ZString yearstr; 

zTextPane “tp; 

zString temp, trash; 

int count; 

location_struct data; 


//print_desc(zTextPane *); 
public: 
C_dlg_Pos(locations_list *, zZResld&); 


int doDone(zEvent *); 
lbChanged(zEvent *); 


/*class POS_Show : public Pos_Base { 


zPushButton *Ok_Pressed; 
zComboBox “array; 
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public: 
POS_Show(zResId&); 


zComboBox “display_array; 


#endif //dialogs.h 
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FASTAL.H 


\* 
; fastcal.h 

* Description: implimentation of Algorithms of Circular 171 

; Input: As shown for each member function. 

* Output: reference variables used for ease of data transfer 

: Comments: 

* Michael T. Lester 05 Nov 1993 

i Modified 21 Feb 1994 
a 


#ifndef fastal.h 
#define fastal.h 


class fast_algorithm 


{ 


private: 


double RD, DR, CE, SE, A[4], B[2], LI, SI, Cl, J, ZO, TD, T, AS1, Y: 
double E, D, G, LS, SD, DS, V, Q, W, SB, CB, X, O, S, CD, SV, P: 
double CS, AZ, HA, U, M, IS14, IL, DT, R, C: 


int K; 
public: 


void illum( float LO, 

float 
float 
int 

int 
float 
float 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 


); 


//Longitude, degrees, E=+, W=- 


E, //Latitude, degrees, N=+, E=- 
pe Near (ARH) 
IM, /fMonth (01 - 12) 
ID, //Day (01 - 31) assumed correct for calendar 
ZL; /{Time format, 0O=Zulu, 1=local (zone) 
H, /fHour, 24 hr format, zulu or local as above 
saz, //result, Sun Azimuth 
sal, /Iresult, Sun Altitude 
sil, /fresult, Sun Illuminance 
maz, /fresult, Moon Azimuth 
mal, /Iresult, Moon Altitude 
mil, /Iresult, Moon Illuminance 
mpr, result, Moon Percentage of Full 
til /result, Total Illuminance 
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void event( float 


iy 
#endif /A#define fastal.h 


float 
float 
int 

int 
float 
float 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 


); 


LO, 


Y, 


Sr, 
sst, 
St, 
Sa, 


ms, 
mt, 
ma, 
ac, 
an, 
pe, 
pn, 
dl 


//Longitude, degrees, E=+, W=- 
//Latitude, degrees, N=+, E=- 


[Year (AHH) 

IM, //(Month (01 - 12) 

ID, //Day (01 - 31) assumed correct for calendar 
/fTime format, O=Zulu, 1=local (zone) 

H, /fHours from zulu 


//result, Sun Rise 
/result, Sun Set Time 
//result, Time of Sun Meridian Passage 
/Iresult, Altitude of Sun Meridian Passage 
/Iresult, Moon Rise 
//resutl, Moon Set 
//Iresult, Time of Moon Meridian Passage 
/Iresult, Altitude of Moon Meridian Passage 
/Iresult, Morning Civil Twilight 
/fresult, Morning Nautica! Twilight 
result, Evening Civil Twilight 
/Iresult, Evening Nautica! Twilight 

/Iresult, length of daylight 
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LL.H 


I 

Mh 

I 

// header file for ll.cpp, the linked list routines for storing the location data. 
I 

#ifndef Il_h 

#define Il_h 


#include "Zapp.hpp” 
#include "defines.h” 


struct location_struct 


{ 

char desc[DESC_LENGTH + 1]; 
float latdeg; 

float latmin; 

int NS; 

float londeg; 

float lonmin; 

int EW; 

floatGMT; 

int DST; 


}; 


class node 


{ 


public: 
node(); 
~node(); 
location_struct *data; 
node *next; 


/* Class locations handles all aspects of adding, editing, saving and 
returning information from the locations file. 
oi 


class locations_list 


{ 


private: 
zString datafile; 
node *head, *temp_ptr; 
int list_dirty; 

public: 


locations _listQ; 
//~\ocations_list(); 

int clear(); 

int save(); 

int saveas(zWindow “pwin); 
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int open_dialog(zWindow “pwin); 

int open(); 

int edit_dialog(zWindow “pwin, locations_list *); 
int add_dialog(zWindow “pwin, locations list *); 
int add_record(location_struct *); 

int delete_dialog(zWindow “pwin, locations_list *); 
node* find(zString &): 

int peek_list_dirty() {return list_dirty;}: 

void reset_pointer(){temp_ptr = head;}; 

char* get_next(); 


#endif //define Il.h 
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LOCDATA.H 


I 

// locdata.h 

I] 

#ifndef locdata.h 
#define locdata.h 


location_struct locdataf] = 


{ 

{"CA: MCAS Tustin”, 33, 42.2, 1, 117, 49.6, 1, 8, 1, 1}, 

{"CA: NAS Noth Island”, 32, 41.9, 1, 117, 12.8, 1, 8, 1, 1}, 

{"CA: NAS Miramar’, 32, 52.1, 1, 117, 08.5, 1, 8, 1, 1}, 

{"CA: ALF Hunter Ligett (TUSI)”, 36, 0.0, 1, 121, 14.0, 1, 8, 1, 1} 


iF 
#Hendif //define locdata.h 
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MENUFRAM.H 


// 

// menuframe.h 

// 

#ifndef menufram.h 
#define menufram.h 


#include "Zapp.h" 


class MenuFrame : public zAppFrame{ 
zTextPane” tp; 
public: 
MenuFrame(zWindow* parent,zSizer* siz,DWORD winStyle,const char" title); 
~MenuFrame(); 
virtual int command(zCommandE vt *); 
int doExit(ZCommandEvt *); 
int AddLocation(zZCommandEvt *); 
doOK(); 
}: 


#endif //menufram 
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ROUTINES.H 


Il 
// routines.h 
I 


#ifndef routines _h 
#define routines_h 


#include “Il.h" 
class routines { 
private: 
locations_list “Il; 
public: 
routines(locations_list *list_in); 
int spotdata(); 


int event(); 
int position(); 


#endif //routines_h 
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BMPSHOW.CPP 


II 

/f Copyright (c) 1992, 1993 Inmark Development Corp. 
//_  Allrights reserved. 

I 


#include "Zapp.hpp” 
#include "bmpshow.h” 


BmpShowPane::BmpShowPane(zWindow *w, zSizer *s):zPane(w,s) { 
bmp = 0; 
bmpdisp = 0; 
fileOpen = FALSE; 

} 


BmpShowPane::~BmpShowPane() { 
if (bmpdisp) delete bmpdisp; 
} 


void BmpShowPane::display(char *name) { 
if (ompdisp) delete Dmpdisp; 
bmp = new zBitmap(canvas(), name); 
bmpdisp = new zBitmapDisplay(bmp); 
fileOpen = TRUE; 
canvas()->setDirty(); 


} 


int BnpShowPane::draw(zDrawEvt*) { 
if (fileOpen) { 
zDimension dm = bmp->size(); 
canvas()->lock(); 
bmpdisp->copyTo(canvas(),0,0,dm.width(),dm.height(),0,0); 
canvas()->unlock(); 


return 1; 


is 


DIALOGS.CPP 


II 


// dialogs.cpp 


II 


// routines for dialogs.cpp 


I 


#include <string.h> 
#include <math.h> 
#include <stdlib.h> 
#include "constant.h” 
#include "dialogs.h" 
#include "Il." 
#include “fastal.h" 


C_dlg_locations::C_dlg_locations(locations_list *all, 2Window *w,zResld& rid) 


} 


: ZFormDialog(w, rid) { 
ll = all; 
_location = ""; 
_GMT = 0.0; 
_latdeg = 0; 
_latmin = 0.0; 
_E=ID_L_W; 
_londeg = 0; 
_lonmin = 0.0; 
_N=ID_L_LN; 
_DST = 1; 


Ok_Pressed = new zDefPushButton(this, IDOK); 
Ok_Pressed->setNotifyClicked(this, (ClickProc)&C_dlg_locations::doOK); 


new zStringEdit(this, ID_L_DESC, &_location, "!(30)"); 

new zintEdit(this, ID_L_LATDEG, &_latdeg, "00", FLD_NOTREQUIRED); 

new ZFloatEdit(this, ID_L_LATMIN , & latmin, "00.00", FLD_NOTREQUIRED); 
new zintEdit(this, ID _L_LONDEG, &_londeg, "000", FLD_NOTREQUIRED); 
new zFloatEdit(this, ID_L_LONMIN, &_lonmin, "00.00", FLD_NOTREQUIRED): 
new zCheckBox(this, ID_L_DST, &_DST); 

new zRadioGroup(this, ID_L_E, |ID_L_W, &_E); 


new zRadioGroup(this, ID_L_N, ID_L_S, &_N); 

new zFloatEdit(this, ID_L_GMT , &_GMT, "0.0", FLD.NOTREQUIRED); 
show(); 

modal(); 


int C_dlg_locations::doOK() 


{ 


if(!zFormDialog::storeData()) 


zMessage mess(app->rootWindow(),"A Description is Required",””, MB_OK); 


76 


setFocus(); 
} 

else if ((_latdeg < 0 ) || (_latdeg > 90 ) ) 
{ 


zMessage mess(app->rootWindow(),"Degrees Latitude must be between 0 & 90”,"",MB_OK): 
setFocus(): 


} 
else if ((_londeg < 0 ) || (_londeg > 179 ) ) 
{ 
zMessage mess(app->rootWindow(),"Degrees Longitude must be between 0 & 
179","",MB_Ok); 
setFocus(); 
else if ((_latmin <0 ) || (latmin > 59 ) || (Llonmin <0 ) || (Llonmin > 59 )) 
{ 
zMessage mess(app->rootWindow(),"Minutes of Latitude/Longitude must be between 0 & 
59","",MB_Ok); 
setFocus(); 


} 
else if (_GMT < 0.0 ) || GMT > 12.0 )) 
{ 


zMessage mess(app->rootWindow(),’"GMT Offset must be between 0 and 12”,"",MB_Ok); 
setFocus(); 


} 
else if (Il->find(_location)) 
{ 


zMessage mess(app->rootWindow(),” This Location is already defined.\nPlease select another 


name", 
“Duplicate Name!”,MB_OK); 
setFocus(); 
} 
else 
shutdown(); 
return(1); 
} 
} 


C_dlg_loc_del::C_dlg_loc_del(locations_list “all, zWindow *w,zResld& rid, node *temp) : zFormDialog(w, rid) 


ll = all; 

_location = "" [Choose Location To Delete]"; 
_GMT = 0.0; 

_latdeg = 0; 

_latmin = 0.0; 

_E=!ID_LD_W; 

_londeg = 0; 

_lonmin = 0.0; 

_N=ID_LD_N; 

_DST = 0; 


Latdeg = new zintEdit(this, ID_LD_LATDEG, &_latdeg); 


aa. 


Latmin = new zFloatEdit(this, ID_LD_LATMIN , &_latmin, "#44 ##’, FLD_NOTREQUIRED); 
Londeg = new zintEdit(this, ID_LD_LONDEG, &_londeg); 

Lonmin = new zFloatEdit(this, ID_LD_LONMIN, &_lonmin, "##44+.#4#t’, FLD_NOTREQUIRED); 
UDST =new zCheckBox(this,ID_LD_DST, & DST); 

UEW =new zRadioGroup(this, ID_LD_E, ID_LD_W, &_E); 

UNS =new zRadioGroup(this, ID_LD_N, ID_LD_S, &_N); 

UGMT = new ZFloatEdit(this, |D_LD_GMT, &_GMT, "0.0", FLD_NOTREQUIRED); 

Ib_desc = new zComboBox(this,|ID_LD_DESC, &_location); 

while (temp != NULL) 


lb_desc->add(temp->data->desc); 
temp = temp->next; 


lb_desc->add(" (Choose Location To Delete]’); 
lb_desc->setT oDefault(); 
Ib_desc->setNotifySelChange(this, (NotifyProc)&C_dlg_loc_del::lbChanged); 


show(); 
modal(); 


} 


int C_dig_loc_del::IbChanged(zEvent “ce) 


// | have no idea why | have to reset the zString in this place 

// but if | don't, it truncates the value to 15 after the 

// first iteration. 
_location =" i. 
lb_desc->getEditT ext(_location); 
node “desired = Il->find(_location); 
if (desired) 


_latmin = desired->data->latmin; 
_latdeg = desired->data->latdeg; 
_lonmin = desired->data->lonmin; 
_londeg = desired->data->londeg; 
_GMT_ = desired->data->GMT; 
_DST = desired->data->DST; 
_E  =desired->data->EW + 409; 
_N ~~ =desired->data->NS + 405; 
Latdeg->setToDefault(); 
Londeg->setT oDefault(); 
UDST->setToDefault(); 
UGMT->setToDefault(); 
UEW->setToDefault(); 
UNS->setToDefault(); 
Lonmin->setT oDefault(); 
Latmin->setToDefault(); 


} 
} 


C_dig_loc_edit::C_dlg_loc_edit(locations_list *all, ZWindow *w,zResId& rid, node *temp) : 
zFormDialog(w,rid) { 
ll = all; 
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_location =" [Choose Location To Edit]"; 
_GMT = 0.0; 

_latdeg = 0; 

_latmin = 0.0; 

_E=!ID_ED_W; 

_londeg = 0; 

_lonmin = 0.0; 

_N=ID_ED_N; 

_DST =0; 


Latdeg = new zintEdit(this, ID_ED_LATDEG, &_latdeg); 

Latmin = new zFloatEdit(this, ID_ED_LATMIN , &_latmin, "#44 #44", FLD_NOTREQUIRED); 
Londeg = new zintEdit(this, ID_ED_LONDEG, &_londeg):; 

Lonmin = new zFloatEdit(this, IO_ED LONMIN, &_lonmin, "#444. #4#’, FLD_NOTREQUIRED); 
UDST =new zCheckBox(this,ID_ED_ DST, &_DST); 

UEW =new zRadioGroup(this, ID_ED_E, ID_ED_W, &_E); 

UNS =new zRadioGroup(this, ID_ED_N, ID_ED_S, &_N); 

UGMT =new ZFloatEdit(this ID_ED GMT, &_GMT, "0.0", FLD_NOTREQUIRED); 
Ib_ desc = new zComboBox(this, ID_ED_ DESC, &_location); 

while (temp != NULL) 


Ib_desc->add(temp->data->desc); 
temp = temp->next; 


} 
lb_desc->add(" [Choose Location To Edit]"); 
lb_desc->setT oDefault(); 
Ib_desc->setNotifySelChange(this, (NotifyProc)&C_dig_loc_edit::lbChanged); 


show(); 
modal(); 


} 
int C_dlig_loc_edit::IbChanged(zEvent *ce) 


// \ have no idea why | have to reset the zString in this place 

// dut if | don't, it truncates the value to 15 after the 

// first iteration. 
_location =" = 
lb_desc->getEditText(_location); 
node “desired = Il->find(_location); 
if (desired) 


_latmin = desired->data->latmin; 
_latdeg = desired->data->latdeg; 
_lonmin = desired->data->lonmin; 
_londeg = desired->data->londeg; 
_GMT_ = desired->data->GMT; 
_DST =desired->data->DST; 
_E  =desired->data->EW + 509; 
_N  =desired->data->NS + 505; 
Latdeg->setToDefault(); 
Londeg->setToDefault(); 
UDST->setToDefault(); 
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UGMT->setToDefault(); 
UEW->setT oDefault(); 
UNS->setT oDefault(); 
Lonmin->setT oDefault(); 
Latmin->setT oDefault(); 
} 

} 


C_dig_spotdata::C_dlg_spotdata(locations_list “all, zResld& rid) 
: ZFormDialog(app->rootWindow(, rid) { 

ll = all; 
_location =' 
_GMT = 0.0; 
_latdeg = 0; 
_latmin = 0.0; 
_E=!ID_LD_W; 
_londeg = 0; 
_lonmin = 0.0; 
_N=ID_LD_N; 
_DST = 0; 
_local = ID_SPOT_LOCAL; 
_day = 0; 


[ Choose Location ]"; 


saz = new zFloatEdit(this, ID_SPOT_SAZ , &_saz, "##t.dHHE', FLD_-NOTREQUIRED); 
sal = new zFloatEdit(this, ID_SPOT_SAL , &_sal, "-4HL#HH'’, FLD_NOTREQUIRED); 

sil = new ZFloatEdit(this, ID_SPOT_SIL , &_sil, "RAHAAH HEE’, FLD _NOTREQUIRED); 
maz = new zFloatEdit(this, ID_SPOT_MAZ , &_maz, "#44.#H#H", FLD_NOTREQUIRED); 
mal = new zFloatEdit(this, ID_SPOT_MAL , &_mal, "#44", FLD _NOTREQUIRED); 
mil = new zFloatEdit(this, IO _SPOT_MIL , &_mil, "##AAHAA HEE’, «FLD _NOTREQUIRED); 
mpr = new zFloatEdit(this, ID_SPOT_MPR , &_mpr, "#######", FLD_NOTREQUIRED); 
til = new zFloatEdit(this, ID_SPOT_TIL , &_til, “HRARRE HABE, «FLD _NOTREQUIRED); 


lb_desc = new zComboBox(this, ID_ SPOT DESC, &_location): 
ll->reset_pointer(); 

temp_desc = Il->get_next(); 

while (temp_desc != "") 


{ 
lb_desc->add(temp_desc); 
temp_desc = Il->get_next(); 


lb_desc->add(" [Choose Location ]”); 
lb_desc->setToDefaultQ; 
Ib_desc->setNotifySelChange(this, (NotifyProc)&C_dlg_spotdata::lbChanged); 


lb_month = new zComboBox(this, ID_SPOT_MONTH, &_month); 
lb_month->addCharStrings(months); 

lb_month->setToDefault(); 

lb_month->setNotifySelChange(this, (NotifyProc)&C_dlg_spotdata::lbChanged); 


lb_day = new zComboBox(this, |ID_SPOT_DAY, &_day); 

lb_ day->addCharStrings(days31); 

Ib_day->setToDefault(); 

lb_day->setNotifySelChange(this, (NotifyProc)&C_dlg_spotdata::IbChanged); 
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} 


Ib_year = new zComboBox(this, ID_SPOT_YEAR, &_year); 

Ib_ year->addCharStrings(years); 

Ib_year->setToDefault(): 

lb_year->setNotifySelChange(this, (NotifyProc)&C_dlg_spotdata::IbChanged); 


Ib_ hour = new zZComboBox(this, ID_SPOT_HOUR, &_hour); 

Ib_ hour->addCharStrings(hours); 

Ib_hour->setToDefault(); 

Ib_hour->setNotifySelChange(this, (NotifyProc)&C_dlg_spotdata::lbChanged); 


Ib_min = new zComboBox(this, ID_SPOT_MIN, &_min); 
lb_min->addCharStrings(minutes); 

Ib_min->setToDefault(); 

lb_min->setNotifySelChange(this, (NotifyProc)&C_dlg_spotdata::lbChanged); 


local = new zRadioGroup(this, ID_SPOT_LOCAL, ID_SPOT_ZULU, &_local); 
local->setNotifyClicked(this, (NotifyProc)&C_dlg_spotdata::lbChanged); 


show(); 
modal(); 


int C_dlg_spotdata::lbChanged(zEvent *ce) 


_month = Ib_month->selection() + 1; 
_day =Ib_day->selection(); 
_year =Ib_year->selection() + 1993; 
_hour = lb_hour->selection(); 
_min =lb_min->selection(); 
switch (_month) 

{ 

case 1: 

case 3: 

case 5: 

case 7: 

case 8: 

case 10: 

case 12: 


Ib_day->reset(); 
Ib_day->addCharStrings(days31); 
lb_ day->setT oDefault(); 
break; 
i 

case 4: 

case 6: 

case 9: 

case 11: 
{ 
Ib_day->reset(); 
lb_day->addCharStrings(days30); 
Ib_day->setToDefault(); 
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break; 


} 


case 2: 
{ 
Ib_day->reset(); 
if ( float(_year / 4) == (_year / 4.0) && 
float(_year / 400) 
l= (_ year / 400.0) ) 


{ 
lb_day->addCharStrings(days29); 
} 


else 
{ 
lb_day->addCharStrings(days28); 


} 
lb_day->setToDefault(); 
} 


storeData(); 
if (completed()) 
{ 
_location =" . 
lb_desc->getEditT ext(_location); 
node “desired = Il->find(_location); 
if (desired) 
{ 
_latmin = desired->data->latmin; 
_latdeg = desired->data->latdeg; 
_lonmin = desired->data->lonmin; 
_londeg = desired->data->londeg; 
_GMT_ = desired->data->GMT; 
_DST = desired->data->DST; 
_E  =desired->data->EW; 
_N- =desired->data->NS; 


lo = _londeg + _lonmin / 60.0; 

if (_E) lo *= -1.0; 

f =_latdeg + _latmin / 60; 

if (_N) f *= -1.0; 

if (_local == 607) z = TRUE; 

else z = FALSE; 

fast_algorithm “alg = new fast_algorithm; 
h =_hour * 100 + _min; 

alg->illum(lo, f, _year+1986, month+1, _day+1, z, h, saz, sal, _sil,_maz, _mal, _ mil, _mopr, _til); 
saz->setT oDefault(); 

sal->setT oDefault(); 

sil->setToDefault(); 

maz->setT oDefault(); 

mal->setT oDefault(); 
mil->setToDefault(); 
mpr->setToDefault(); 

til->setToDefault(); 

delete alg; 
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} 


C_dig_Event::C_dig_Event(locations_list “all, zZResId& rid) 
: ZFormDialog(app->rootWindow(), rid) { 
ll = all; 
_location =" [ Choose Location ]"; 
_GMT = 0.0; 
_latdeg = 0; 
_latmin = 0.0; 
_E=ID_LD_W; 
_londeg = 0; 
_lonmin = 0.0; 
_N=ID_LD_N; 
_DST =0; 
_local = IDLEVENT_LOCAL:; 
_day = 0; 
h=0; 


st = new zFloatEdit(this, ID EVENT_SUNRISE, & sr, "0000", FLD_NOTREQUIRED); 
sst = new zFloatEdit(this, ID. EVENT SUNSET, & sst, "0000", FLD. NOTREQUIRED); 
st = new zFloatEdit(this, ID EVENT SUNTIME, & st,"0000", FLD _NOTREQUIRED): 
sa = new ZFloatEdit(this, ID EVENT _SUNALT, &_sa, “-#####", FLD NOTREQUIRED): 
mr = new zFloatEdit(this, ID. EVENT MOONRISE, & mr, "0000", FLD_ NOTREQUIRED): 


ms = new zFloatEdit(this, ID. EVENT MOONSET, & ms, "0000", FLD. NOTREQUIRED); 
mt = new zFloatEdit(this, ID. EVENT MOONTIME, & mt, "0000", FLD. NOTREQUIRED); 
ma = new zFloatEdit(this, ID EVENT _MOONALT, & ma, "HHH", FLD NOTREQUIRED): 


ac = new ZFloatEdit(this, IDLEVENT_AMCIV,  &_ac, "0000", FLD_NOTREQUIRED); 
an = new ZFloatEdit(this, IDLEVENT_AMNAT, &_an, "0000", FLD_NOTREQUIRED); 
pc = new ZFloatEdit(this, IDLEVENT_PMCIV,  &_pc, "0000", FLD_NOTREQUIRED); 
pn = new ZFloatEdit(this, ID_LEVENT_PMNAT, &_pn, "0000", FLD_NOTREQUIRED); 
dl = new zFloatEdit(this, IDLEVENT_DAYLIGHT, &_dl, "0000", FLD_NOTREQUIRED); 


Ib_desc = new zComboBox(this, IDLEVENT_DESC, &_location); 
il->reset_pointer(); 

temp_desc = Il->get_next(); 

while (temp_desc != "") 


lb_desc->add(temp_desc); 
temp_desc = Il->get_next(); 


lb_desc->add(" [Choose Location }"); 
lb_desc->setToDefault(); 
Ib_desc->setNotifySelChange(this, (NotifyProc)&C_dlg_Event::lbChanged); 


Ib_ month = new zComboBox(this, IDLEVENT_MONTH, &_month); 
Ib_month->addCharStrings(months); 

lb_ month->setToDefault(); 

Ib_month->setNotifySelChange(this, (NotifyProc)&C_dlig_Event::lbChanged); 


Ib_ day = new zComboBox(this, IDLEVENT_DAY, &_day); 


lb_ day->addCharStrings(days31); 
Ib_day->setT oDefault(); 
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Ib_day->setNotifySelChange(this, (NotifyProc)&C_dig_Event 


lb_year = new zComboBoxi(this, IDLEVENT_YEAR, &_year); 
lb_ year->addCharStrings(years); 
lb_year->setToDefault(); 


::IbChanged); 


lb_year->setNotifySelChange(this, (NotifyProc)&C_dlg_Event::lbChanged); 


local = new zRadioGroup(this, ID. EVENT_LOCAL, ID_EVENT_ZULU, & local): 


local->setNotifyClicked(this, (NotifyProc)&C_dlg_Event::lbCh 
show(); 
modal(); 
} 
int C_dig_Event::IbChanged(zEvent *ce) 
{ 
_month = Ib_month->selection() + 1; 
_day =Ib_day->selection(); 
_year =Ilb_year->selection() + 1993; 
switch (_month) 
{ 
case 1: 
case 3: 
case 5: 
case 7: 
case 8: 
case 10: 
case 12: 
Ib_day->reset(); 
Ib_day->addCharStrings(days31); 
Ib_day->setToDefault(); 
break; 
} 
case 4: 
case 6: 
case 9: 
case 11: 
{ 
Ib_day->reset(); 
Ib_day->addCharStrings(days30); 
Ib_day->setT oDefault(); 
break; 
} 
case 2: 
{ 
Ib_day->reset(); 
if ( float(_year / 4) == (_year / 4.0) && 
l= (_ year / 400.0) ) 


{ 
lb_day->addCharStrings(days29); 
} 
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anged); 


float(_year / 400) 


else 
{ 
Ib_day->addCharStrings(days28); 


} 
lb_day->setToDefault(); 
} 


storeData(); 
if (completed()) 
{ 
_location =" ue 
Ib_desc->getEditText(_location): 
node “desired = Il->find(_location); 
if (desired) 
{ 
_latmin = desired->data->latmin; 
_latdeg = desired->data->latdeg; 
_lonmin = desired->data->lonmin; 
_londeg = desired->data->londeg; 
_GMT_ = desired->data->GMT; 
_DST = desired->data->DST; 
_E = desired->data->EW; 
N  =desired->data->NS; 


lo = _londeg + _lonmin / 60.0; 


if (_E) lo *= -1.0; 

f =_latdeg + _latmin / 60; 

if (_N) f *=-1.0; 

if (local == 721) z = TRUE; 
else z = FALSE; 


fast_algorithm “alg = new fast_algorithm; 


alg->eventi(lo, f, year+1986,_ month+1, day+1, z,h, sr, sst, st, sa, _mr, _ms, 


_ac, _an, _pc, _pn, _dl); 
sr->setToDefault(); 
sst->setToDefault(); 
st->setToDefault(); 
sa->setT oDefault(); 
mr->setToDefault(); 
ms->setT oDefault(); 
mt->setT oDefault(); 
ma->setT oDefault(); 
ac->setT oDefault(); 
an->set ToDefault(); 
pc->setT oDefault(); 
pn->setT oDefault(); 
dl->setToDefault(); 
delete alg; 

} 
} 


= 


C_dlig_Pos::C_dlg_Pos(locations_list “all, zResid& rid) 
: ZFormDialog(app->rootWindow(),rid) { 
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_mt, 


ma, 


Il = all; 
_location =’ 
_GMT = 0.0; 

_latdeg = 0; 

_latmin = 0.0; 
_E=!ID_LD_W; 

_londeg = 0; 

_lonmin = 0.0; 
_N=ID_LD_N; 

_DST = 0; 

_local = ID_POS_LOCAL; 
_day = 0; 

_res = 2; 

h =0; 


[ Choose Location }”; 


Done = new zPushButton(this, ID_POS_ DONE); 
Done->setNotifyClicked(this, (ClickProc)&C_dlg_Pos::doDone); 


lb_desc = new zComboBox(this, ID_POS_ DESC, &_location); 
ll->reset_pointer(); 

temp_desc = Il->get_next(); 

while (temp_desc != *") 


Ib_desc->add(temp_desc); 
temp_desc = Il->get_next(); 


Ib_desc->add(” [Choose Location }"); 
Ib_desc->setToDefault(); 
lb_desc->setNotifySelChange(this, (NotifyProc)&C_dlg_Pos::lbChanged); 


lb_month = new zComboBox(this, ID_POS_MONTH, &_month); 
Ib_month->addCharStrings(months); 

lb_month->setT oDefault(); 

lb_month->setNotifySelChange(this, (NotifyProc)&C_dlg_Pos::lbChanged); 


lb_day = new zComboBox(this, ID_POS_DAY, &_day); 
lb_day->addCharStrings(days31); 

lb_day->setToDefault(); 

lb_day->setNotifySelChange(this, (NotifyProc)&C_dlg_Pos::lbChanged); 


lb_year = new zComboBox(this, ID_POS_YEAR, &_year); 

lb_ year->addCharStrings(years); 

lb_year->setToDefault(); 

lb_year->setNotifySelChange(this, (NotifyProc)&C_dlg_Pos::lbChanged); 


lb_bhour = new zComboBox(this, ID_POS_BHOUR, &_bhour); 
Ib_ bhour->addCharStrings(hours); 
Ib_bhour->setT oDefault(); 


lb_bmin = new zZComboBox(this, |ID_POS_BMIN, &_bmin); 


lb_bmin->addCharStrings(minutes); 
lb_bmin->setT oDefault(); 


86 


lb_res = new zComboBox(this, 1D _POS_RES, &_res); 
Ib_res->addCharStrings(resolution); 
Ib_res->setT oDefault(); 


local = new zRadioGroup(this, 1D_ POS LOCAL, ID _POS_ZULU, &_local); 


local->setNotifyClicked(this, (NotifyProc)&C_dlg_Pos::IbChanged): 


show(); 
modal(); 


} 


int C_dlg_Pos::lbChanged(zEvent *ce) 


_month = Ib_month->selection() + 1; 
_day =Ib_day->selection(); 
_year =Ib_year->selection() + 1993; 
switch (_month) 

{ 

case 1: 

case 3: 

case 5: 

case 7: 

case 8: 

case 10: 

case 12: 


Ib_day->reset(); 
Ib_day->addCharStrings(days31); 
lb_day->setToDefault(); 
break; 
i 

case 4: 

case 6: 

case 9: 

case 11: 


Ib_day->reset(); 
Ib_day->addCharStrings(days30); 
lb_day->setToDefault(); 

break; 


} 


case 2: 


{ 
Ib_day->reset(); 
if ( float(_year / 4) == (year / 4.0) && 
l= (_ year / 400.0) ) 
{ 
lb_day->addCharStrings(days29); 
} 


else 


{ 
lb_day->addCharStrings(days28); 
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float(_year / 400) 


} 
lb_day->setToDefault(); 


} 
} 
} 
int C_dlg_Pos::doDone(zEvent *ce) 
storeData(); 
if (completed()) 
{ 


fast_algorithm “alg = new fast_algorithm; 
_location =" gs 
lb_desc->getEditT ext(_location); 

node “desired = Il->find(_location); 
switch (Ib_res->selection()) 


{ 


case 0: 
{ 
delta = 1; 
break: 


} 


case 1: 


{ 
delta = 5; 
break; 


} 


case 2: 


{ 
delta = 10; 
break; 


} 


case 3: 


{ 
delta = 15; 
break; 
} 
} 


if (desired) 


_latmin = desired->data->latmin; 
_latdeg = desired->data->latdeg; 
_lonmin = desired->data->lonmin; 
_londeg = desired->data->londeg; 
_GMT = desired->data->GMT; 
_DST = desired->data->DST; 
_E = desired->data->EW; 

_N = =desired->data->NS; 


lo = _londeg + _lonmin / 60.0; 


if (_E) lo *= -1.0: 
f=_latdeg + _latmin / 60; 
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_til); 


if (_N) f *= -1.0; 
if (local) z = TRUE: 
else z = FALSE; 


Hrtn_data->lo = lo; 
/irtn_data->f = f; 


Ib_month->getEditText(monthstn); 

Ib_day->getEditText(daystr); 

Ib_year->getEditText(yearstn): 

strcpy(rtn_data->array[0],""""* SUN & MOON POSITION CHART ****"): 
rtn_data->array[0} = strdup(temp); 

temp = NULL; 

Strcat(temp, _location); 

Strcat(temp,(_N ?", N":", S"“)); 

itoa(_latdeg, trash, 10); 

strcat(temp, trash); 

strcat(temp, " "); 

gcvt(_latmin, 5, trash); 

strcat(temp, trash); 

Strcat(temp,(LE ?", E":", W")): 

itoa(_londeg, trash, 10); 

strcat(temp, trash); 

strcat(temp, " "); 

gcvt(_lonmin, 5, trash); 

strcat(temp, trash); 

strcpy(rtn_data->array[1],temp); 

temp = monthstr; 

strcat(temp, ""); 

strcat(temp, daystr); 

strcat(temp, ""); 

strcat(temp, yearstr); 

Strcat(temp," Zulu +"); 

gcvt(_GMT, 5, trash); 

strcat(temp, trash); 

strcpy(rtn_data->array(2]},temp); 

strcpy(rtn_data->array(5]," Sun Sun Lux Moon Moon %Moon — Lux"); 
strcpy(rtn_data->array[7],"Time Azimuth Altitude Illum Azimuth Altitude (Phase) _ Illum’); 
strcpy(rtn_data->array[8],"-----——-----------—--_---------------_------___--------------------- a 
//logic for producing times 

for (count = 0; count <=60; count++, _bmin += delta) 





{ 
if (_bmin >= 60) 


{ 
_bmin -=60; 
_bhour++; 


} 
h = _bhour * 100 + _bmin; 
alg->illum(lo, f, year+1993, _month+1, day+1, z, h, saz, sal, sil, maz, _mal, _mil, _mpr, 


if (nh >= 2400) h -= 2400; 
sprintf(temp, "%04.0f %8.0f %9.0f %13.5f %8.0f %9.0f %9.0f %12.5f", h, saz, _sal, _ sil, 


_maz, _mal, _mpr, _ til); 


89 


strcpy(rtn_data->array[count+8],temp):; 


#: 
shutdown(); 
return 1; 


} 


/*POS_CHART_DLG::POS_CHART_DLG(zResld& rid) : zZFormDialog(app->rootWindow(), rid) 


{ 
display_array = new zZComboBox(this, POS_CHART_ARRAY); 


for (int count = 0; count = 80; count++) 


{ 
display_array->add(array[count][0)); 
} 


a 
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FASTAL.CPP 


ne ee en ee ce Serene on eer aes ee en eae eae ee 


/* File Name: fastal.cpp 

/* Programmer: Michael T. Lester 

/* Created: 05 Nov 1993 Modified: 21 Feb 1994 

/* Description: Implementation of algorithms from Circular 171 
/* Compiler: Borland C++ (DOS IDE) 


(RR ENT Chal TRG a Aa li al laa ai iad hea aaa ll ala alia ladl 


#include <math.h> 
#include "fastal.h” 


#define sgn(arg) (arg<O ? (-1) : (1)) 

#define deg(arg) (floor(arg) + ((arg - floor(arg))*10)/6) 
#define dms(arg) (floor(arg) + 6 * (arg - floor(arg))/10) 
#define neg56 (-5/6) 

#define TRUE 1 

#define FALSE 0 


void 
fast_algorithm::illum( 
float LO, //Longitude, degrees, E=+, W=- 


float E. //Latitude, degrees, N=+, E=- 
float lY, Year (RRA) 
int IM, //(Month (01 - 12) 
int ID, [Day (01 - 31) assumed correct for calendar 
float PA /fTime format, 0=Zulu, 1=local (zone) 
float H, //Hour, 24 hr format, zulu or local as above 
float& saz, //result, Sun Azimuth 
float& sal, //Iresult, Sun Altitude 
float& sil, //result, Sun Illuminance 
float& maz, /Iresult, Moon Azimuth 
float& mal, /fresult, Moon Altitude 
float& = mil, /fresult, Moon Illuminance 
float& = mopr, /Iresult, Moon Percentage of Full 
float& til /Iresult, Total Illuminance 
it 
RD =57.29578: 
DR =1/RD; 
Cee=0.91775; 
SE =0.39715; 
A[(0] = -0.01454; 


A[1] = -0.010453; 
A[2] = -0.020791:; 
A[3] = 0.00233; 


F =F* DR; 
C = 360; 

LI = fabs(LO); 
SI = sin(F); 
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Cl = cos(F):; 
J = 367 *1Y - floor(7 * (IY + floor((IM + 9) / 12)) / 4) + 
floor(275 
*“IM/9) + ID - 730531; 
DT =0; 


if (Z == 0) DT = -LO/C; 
if (Z == 1) DT = -(LI- 15 * floor((L! + 7.5) / 15)) / C * sgn(LO); 


ZO = J -0.5; 

E = (deg(H / 100.0)) / 24 - DT - LO/ 360; 
D =ZO+E; 

TD = 280.46 +0.98565 * D; 

T =TD- floor(TD / 360) * 360; 


if (T < 1e-500) T =T + 360; 


TD = 357.5 +0.9856 * D; 

G =(1D- floor(TD / 360) * 360) * DR; 
LS =(T + 1.91 * sin(G)) * DR; 

AS1 = atan(CE * tan(LS)) * RD; 

Y =cos(LS); 


if (Y < 1e-500) AS1 = AS1 + 180: 


SD = SE * sin(LS); 
DS = asin(SD); 

T =T - 180; 

T =T + 3607 Eee: 


for (int N = 1; N <3; N++){ 
if (N == 2){ 
TD = 218.32 + 13.1764 * D; 
V =TD- floor(TD / 360) * 360; 


if (V < 1e-500) V = V + 360; 


TD = 134.96 + 13.06499 * D; 

Y =(1D- floor(TD / 360) * 360) * DR; 
TD = 93.27 + 13.22935 * D: 

O =(TD- floor(TD / 360) * 360) * DR; 
TD = 235.7 + 24.3815 * D; 

W =(1D- floor(TD / 360) * 360) * DR; 
SB =sin(Y); 

CB =cos(Y); 

X =sin(O); 

S =cos(O); 

SD = sin(W); 

CD =cos(W); 

V =V+ (6.29 - 1.27 * CD +0.43 * CB) * SB + (.66 + 1.27 * CB) * 


SD -0.19 * sin(G) -0.23 * X * S; 
V =V*DR; 
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Y¥ =((59.13 -0:17 ~ CD) *X + (56 * SB +0.17 * SD) * S) * DR; 


SV =sin(V); 
SB =sin(Y); 
CB =cos(Y); 


Q =CB*cos(V); 

P =CE*SV*CB-SE* SB; 
SD =SE°* SV * CB + CE * SB; 
AS1 = atan(P / Q) * RD; 


if (Q < 0) AS1 =AS1 + 180: 


DS =asin(SD); 
} 
H =T-AS1; 
CD = cos(DS); 


CS = cos(H * DR); 

Q =SD*CI-CD*SI* CS; 
P =-CD* sin(H * DR); 

AZ = atan(P / Q) * RD; 


if (Q < 1e-500) AZ = AZ + 180: 
if (AZ < 1e-500) AZ = AZ + 360: 


AZ = floor(AZ +0.5); 
H =asin(SD * SI + CD * Cl * CS) * RD; 


Z =H* DR; 
H =H-0.95 * (N - 1) * cos(H * DR); 
HA =H; 


if (H >= (-5 / 6)){ 
HA =H +1/(tan((H + 8.59 / (H + 4.42)) * DR)) / 60: 


} 
U =sin(HA * DR); 
X = 753.6616; 


S =asin(X * cos(HA * DR) / (X + 1)); 
M =X * (cos(S) - U) + cos(S); 
M = exp(-.21 * M) * U +0.0289 * exp(-.042 * M) * 


(1 + (HA + 90) * U /57.29578): 
HA = ((floor(fabs(HA) +0.5)) * sgn(HA)): 


if (N == 1){ 
IS1 = 133775 * M; 
saz = AZ; 
sal = HA; 
sil = 1S1; 
} 


else{ 


E =acos(cos(V - LS) * CB); 
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P = 0.892 * exp(-3.343 / (pow( tan(E / 2), 0.632))) + 0.0344 * 


(sin(E) - E * cos(E)):; 


P =0.418*P/(1 -0.005 * cos(E) -0.03 * sin(Z)); 


IL =P*M; 


IS1 =1S1 + IL +0.0005. 


maz = AZ; 
mal = HA; 
mil = IL; 


IL = floor(50 * (1 - cos(E)) +0.5); 


mpr = IL; 
til = mil + sil; 


} 


void 
fast_algorithm::event( float 

float 
float 
int 

int 
float 
float 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 
float& 


{ 
RD =57.29578; 


DR =1/RD; 

CE =0'91775; 
SE =0.39715; 
A[0] = -0.01454; 


A(1] = -0.10453: 
A(2] = -0.20791: 
A(3] = 0.00233; 


LO, 


lY, 


SI, 
sst, 
st, 
Sa, 
mr, 
ms, 
mt, 
ma, 
ac, 
an, 
pe, 


dl 


/[Longitude, degrees, E=+, W=- 
//Latitude, degrees, N=+, S=- 


Year (#44#) 

IM, /{Month (01 - 12) 

ID, //Day (01 - 31) assumed correct for calendar 
/[Time format, O=Zulu, 1=local (Zone) 

H //hours from Zulu 


//result, Sun Rise 

/Iresult, Sun Set Time 

//result, Time of Sun Meridian Passage 

/lresult, Altitude of Sun Meridian Passage 

//result, Moon Rise 

//resutl, Moon Set 

//result, Time of Moon Meridian Passage 

//result, Altitude of Moon Meridian Passage 

//result, Morning Civil Twilight 

//result, Morning Nautical Twilight 

//result, Evening Civil Twilight 

//result, Evening Nautical Twilight 
//result, length of daylight 


int exit_now = FALSE, exit_n_loop = FALSE; 


F =F * DR; 
C = 360; 
LI = fabs(LO); 
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SI = sin(F); 
Cl = cos(F); 
J = 367 * IY - floor(7 * (IY + floor((IM + 9) / 12)) /4) + 
floor(275 
*IM/9) + ID - 730531; 
DT = 0; 


if (!Z) DT =-LO/C; 
if (Z == 1) DT =-(LI - 15 * floor((LI + 7.5) / 15)) / C * sgn(LO); 
Z0 = J -0.5; 
for(int L = 1; L <= 4; L++){ 
if (L == 4) C = 347.81; 
Te =— 1) || (Ee ==4)){ 
M=0.5 + DT; 
K=1: 
while (1) { 
exit_now = FALSE; 
M -= DT; 
E=M-LO/ 360; 
D=Z0+E; 
if (fabs(E) >= 1) E -= sgn(E); 
TD = 280.46 + .98565 * D; 
T = TD - floor(TD / 360) * 360; 
if (T <0) T += 360; 
TD = 357.5 + .9856 * D; 
G = (TD - floor(TD / 360) * 360) * DR; 
LS =(T + 1.91 * sin(G)) * DR; 
AS1 = atan(CE * tan(LS)) * RD; 
Y = cos(LS): 
if (Y <0) AS1 += 180; 
SD = SE * sin(LS); 
DS = asin(SD); 
T -= 180; 
if (L == 4){ 
TD = 218.32 + 13.1764 * D; 
V = TD - floor(TD / 360) * 360; 
if (V <0) V=V + 360; 
TD = 134.96 + 13.06499 * D; 
Y =(TD - floor(TD / 360) * 360) * DR; 
TD = 93.27 + 13.22935 * D; 
O = (TD - floor(TD / 360) * 360) * DR; 
TD = 235.7 + 24.3815 * D; 
W = (TD - floor(TD / 360) * 360) * DR; 
SB = sin(Y); 
CB =cos(Y); 
X = sin(Q); 
S = cos(QO):; 
SD = sin(W); 
CD = cos(W); 
V += (6.29 - 1.27 * CD + .43 * CB) * SB + (.66 + 1.27 * CB) * 


SD - .19 * sin(G) -.23*X*S8; 
V *= DR; 
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Y=(613—.17 - CD) x 40562 Sb417 SP) > pie 
SV = sin(V); 

SB = sin(Y); 

CB = cos(yY); 

Q = CB * cos(V); 

P=CE*SV*CB-SE* SB; 

SD = SE * SV * CB + CE * SB; 

AS1 = atan(P / Q) * RD; 

if (Q <0) AS1 += 180; 

DS = asin(SD); 


} 

T += LO + 360 * E; 

T -= floor(T / 360) * 360; 
U=T-AS1; 

if (fabs(U) > 180) U -= 360 * sgn(U); 
U/=C; 

M += DT -U; 

if (L < 4) K++; 

switch (K){ 


case 1: 

case 3: 

case 5:{ 
K++; 
break; 


} 


case 2:{ 
if( (M>=0) && (M < 1)){ 
exit_now = TRUE; 


else{ 
M -= sgn(M); 
K++: 
} 
break; 
} 
case 4:{ 
if (M >= 0){ 
exit_now = TRUE; 
break: 
} 
M -= sgn(M); 
K++: 
break; 
} 
case 6:{ 
exit_now = TRUE; 
break; 
} 
} //switch 
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if (exit_now) break; 

} // while loop 

H = asin(cos(F - DS)) * RD; 

if (L == 4) H -= 0.95 * cos(H); 

HA = H: 

if (H >= (neg56)) 

HA =H + 1/(tan((H + 8.59 / (H + 4.42)) * DR)) / 60; 

pee (ts =="1) || (== 4) 
H = (A[L-1] - SI * SD) / (Cl * cos(DS)); 
if (fabs(H) > 1) H = 1.5; 
else H = acos(H) *RD/C; 


B[O] =M-H; 

B[1] =M +H; 

for(int | = 0; |<=1; I++){ 
K=2*(I+1)-3; 


for (int N = 1; N <= 6; N++){ 
exit_n_loop = FALSE; 
Bil] -= DT; 
E = Bil] -LO / 360; 
io = 20 :+ E- 
if (fabs(E) >= 1) E -= sgn(E); 
TD = 280.46 + .98565 * D; 
T = TD - floor(TD / 360) * 360; 
if (T < 0) T += 360; 
TD = 357.5 + .9856 * D; 
G = (1D - floor(TD / 360) * 360) * DR; 
LS =(T + 1.91 * sin(G)) * DR; 
AS1 = atan(CE * tan(LS)) * RD; 
Y = cos(LS); 
if (Y <0) AS1 += 180; 
SD = SE * sin(LS); 
DS = asin(SD); 
T -= 180; 
if (L == 4){ 
TD = 218.32 + 13.1764 * D; 
V =TD - floor(TD / 360) * 360; 
if (V < 0) V += 360; 
TD = 134.96 + 13.06499 * D; 
Y = (1D - floor(TD / 360) * 360) * DR; 
TD = 93.27 + 13.22935 * D; 
O = (TD - floor(TD / 360) * 360) * DR; 
TD = 235.7 + 24.3815 * D; 
W = (TD - floor(TD / 360) * 360) * DR; 
SB = sin(Y); 
CB =cos(Y); 
X = sin(O); 
S = cos(O); 
SD = sin(W); 
CD = cos(W); 
V += (6.29 - 1.27 * CD + .43 * CB) * SB + (.66 + 1.27 * CB) * 


SD - .19 * sin(G) - .23*X*S; 
V *= DR; 


a7, 


Y = ((6.13- .17* CD)* X + (56 * SB + .17 “SD Seer: 
SV = sin(V); 
SB = sin(Y); 
CB = cos(Y); 
Q = CB * cos(V); 
P= CE Sy 7OB=se Sa: 
9D =SEe ov 7 Ge+ CE Sb: 
AS1 = atan(P / Q) * RD; 
if (Q <0) AS1 += 180; 
DS = asin(SD): 
} if (L == 4) 
Ti += LO 360. E. 
T -= floor(T / 360) * 360; 
U=T-AS1; 
if (fabs(U) > 180) U -= 360 * sgn(U); 
U /=C; 
H = (A[L-1} - SI * SD) / (CI * cos(DS)); 
if (fabs(H) > 1) H = 1.5; 
else H = acos(H) * RD /C; 
B[I} += K* H-U+DT; 
if (L < 4) N++; 
switch (N){ 
case 1: 
case 3: 
case 5:{ 
break; 
} 


case 2:{; 
if ( (B[I] >= 0) && (Bil} < 1)){ 
exit_n_loop = TRUE; 


} 
else BI] -= sgn(B[I}); 


break: 

} 

case 4:{ 
if (BEI] >= 0){ 

exit_n_loop = TRUE; 

} 
break; 

} 

case 6:{ 
exit_n_loop = TRUE; 
break; 

} 

} //switch 


if (exit_n_loop) break; 
} //N for loop 
} /A for loop 
switch (L){ 
case 1:{ 
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R = floor(100 * dms(M * 24) + .5); 
st =R; 
HA = floor( fabs(HA) + .5) * sgn(HA); 
sa = HA; 
for (int | = 0; | <= 1; I++){ 
R = floor( 100 * dms(B{I] * 24) + .5); 
if ( (R >= 4800) || (R < 0) ) break; 
if ('){ 
sr=R; 
continue; 


else { 
sst =R; 


} 
R = B(1] - B[O); 
if (R <0) R++; 
R = floor( 100 * dms(R * 24) + .5); 
dl =R; 
} //\ for loop 
break; 
} // case 1 
case 2:{ 
for (int | = 0; | <= 1; 1++){ 
R = floor( 100 * dms(B{l] * 24) + .5); 
if ((R >= 4800) || (R < 0) ) break; 
if (!1) 
ac =R; 
else 
pe = R; 
} // for loop 
break; 
}// case 2 


case 3: { 

for (int | = 0; | <= 1; I++){ 
R = floor( 100 * dms(B{l] * 24) + .5); 
if ((R >= 4800) || (R < 0) ) break; 


if (11) 
an = R; 
else 
pn =R; 
} // for loop 
break; 
} // case 3 
case 4: { 
R = floor( 100 * dms(M * 24) + .5); 
mt = R; 
HA = floor( fabs(HA) + .5) * sgn(HA); 
ma = HA; 


for (int | = 0; | <= 1; I++){ 
R = floor( 100 * dms(Bjl] * 24) + .5); 
if ((R >= 4800) || (R < 0) ) break; 
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if (!1) 


mr = R; 


else 

ms =R; 
} // for loop 
} // case 4 
} // Switch 
} // L loop 
} //main 
|b 


char* fast_algorithm::calendar(int b_day, int b_mo, int b_yr, 


II 


int e_day, int e_mo, int e_yr, 
float lat, float lon, int Z, 
float thresh, int delta){ 


intdays; //# of days data is requested for 
int JB, JE; //Julian for Begin and End of requested period respectively 
char *matrix; // pointer to the calendar matrix 


// compute # of days requested 
JB = 367 * b_yr - floor(7 * (b_yr + floor((b_mo + 9) / 12)) / 4) + 
floor(275 * b_mo/Q) + 


b_day - 730531; 


JE = 367 *e_yr- floor(7 * (e_yr + floor((e_mo + 9) / 12)) / 4) + 
floor(275 * e_mo/Q) + 


e_day - 730531; 


i 
// 


const int days = JE - JB + 11; 


// allocate space for array and fill in header and footer 
matrix = new char(132][(60]; 

matrix[47][0] = "LIGHT LEVEL PLANNING CALENDAR’; 
for(int count=0; count <=131; count++) matrix{count][4] = 


return(matrix); 
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LL.CPP 


If 

I \l.cpp 

I/ 

// routines for Il.h, linked list of location data 
// 

#include "“Il.h" 

#include “dialogs.h" 

#include <string.h> 


/Itypes of files used in the Save_as dialog 
char “*types|[] = 


{ 
“Data Files (*.dat)", “*.dat", 
"All Files (*.*)", °*.*", 


0,0 

i 

//\nitialize a new node of the linked list of locations 
node::node() 

{ 

data = NULL; 

next = NULL: 

} 


//Destructor for a node of the linked list of locations 
node::~node() 


delete data: 


} 


//Constructor for the linked list of locations 
locations _list::locations_listQ 


datafile = "“moonlite.dat": 
list_dirty = FALSE; 
head = NULL; 

} 


locations_list::clear() 
{ 
if (list_dirty) 
{ 
zMessage *msg = new zMessage(app->rootWindow(), “Locations have Changed!\nSave 
Changes?", 
"WARNING", 


MB_YESNOCANCEL | MB_ICONSTOP): 
if (msg->value() == IDCANCEL) 


return (0); 
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if (msg->value() == IDYES) 


save(); 
} 
node *temp, *temp1; /temp pointers 
temp = head; //point to first node 
head = NULL; /iclear head pointer 
while (temp != NULL) //step through list, deleting each node 


/Ithe node deletes the data portion 
temp1 = temp->next;: 
delete temp; 
temp = temp71; 


} 
list_dirty = FALSE; //set list as clean 
return (1); //return ok. 


} 
locations_list::open_dialog(zWindow *pwin) 


zFileOpenForm “fs = new zFileOpenForm(app->rootWindow(), "Open File”, 
(char *) datafile, types); 


if (fs->completed()) //if dialog was completed ok 
datafile = fs->name(); // use the new file name 
open(); // and open that file. 
return (1); 

} 

locations_list::open() 

{ 

clear(); /Iclear the old list, to check if clean 

FILE “fp; 

node *temp; 

int result; 

fo = fopen(datafile, "rb”); //open the file 

if (!fp) return(O); //open fails, report same 

while(1) /if opened ok, continue 
{ 


temp = new node; 
temp->data = new location_struct; 
result = fread(temp->data, sizeof(location_struct), 1, fp); //read data 


if (result == 0) /if data read failed 
{ // delete temp node, and return 
delete temp; 
break; 


temp->next = head; 
head = temp; 


if (fclose(fp) != 0) return(Q); //if close fails, return failed 
list_dirty = FALSE; //set list to clean 
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return(1); 


} 


int 
| locations_list::save() 
) { 
node *temp; 
FILE “fp; 
fp = fopen(datafile, wb"); 
if (!fp) return (0); 
temp = head; 
while (temp != NULL) 


fwrite(temp->data, sizeof(location_ struct), 1, fp); 
temp = temp->next; 


} 
fclose(fp); 
list_dirty = FALSE; 
return (1); 


int 
locations_list::saveas(zWindow “pwin) 


zFileSaveAsForm “fs = new zFileSaveAsForm(app->rootWindow(), "Save As”, 
(char *) datafile, types); 
if (fs->completed()) 
{ 


datafile = fs->name(); 
save(); 


return (1); 


} 


locations_list::add_record(location_struct *temp_location) 
{ 
node *temp_node, temp; 
temp_node = new node; 
//point node to data structure and link node into list 
temp_node->data = temp_location; 
temp_node->next = head; 
head = temp_node; 


list_dirty = TRUE; 
return (1); 
} 
locations_list::add_dialog(zWindow “pwin, locations_list “Il) 
{ 


C_dlg_locations *dlg_locs = new C_dlg_locations(Il, pwin, 
zResild(DIALOG_LOCATIONS)); 
if(dig_locs->completed()) 
{ 


/Imake some temporary pointers 
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location_struct *temp_location; 

/Imake a new node and new data structure 
temp_location = new location_struct; 

/Imove data from calling procedure to data structure 
strcpy(temp_location->desc, dig_locs->location()); 


temp_location->latdeg = dig_locs->_latdeg; 
temp_location->latmin = dig_locs->_latmin; 
temp_location->NS = dig_locs->_N - 305; 
temp_location->londeg = dlg_locs->_londeg; 
temp_location->lonmin = dig_locs->_lonmin; 
temp_location->EW = dilg_locs->_E - 309; 


temp_location->GMT = dlg_locs->_GMT; 
temp_location->DST = dig_locs->_DST; 


add_record(temp_location); 
delete dig_locs; 


//if all was successful, return true 
return(TRUE); 
} 


locations_list::edit_dialog(zWindow “pwin, locations_list *Il) 


{ 

C_dlg_loc_edit *dlg_edit = new C_dlg_loc_edit(ll, pwin, ZResId(EDIT_LOCATION), head); 
/Imake some temporary pointers 

node *temp = head; 

if (dlg_edit->completed() 


{ 

while ((temp != NULL) && (temp->data->desc != dig_edit->_location)) 
{ 
temp = temp->next; 


} 
if (temp != NULL) 
{ 


strcpy(temp->data->desc, dig_edit->location()); 


temp->data->latdeg = dlg_edit->_latdeg; 
temp->data->latmin = dig_edit->_latmin; 
temp->data->NS = dlg_edit->_N - 505; 
temp->data->londeg = dig_edit->_londeg; 
temp->data->lonmin = dig_edit->_lonmin; 
temp->data->EW = dig_edit->_E - 509; 
temp->data->GMT = dlg_edit->_GMT; 
temp->data->DST = dig_edit->_DST; 
list_dirty = TRUE; 

} 


} 
delete dig_edit; 


/ff all was successful, return true 
return(TRUE); 
} 
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locations_list::delete_dialog(zWindow “pwin, locations_list “Il) 


{ 

C_dlg_loc_del *dig_del = new C_dig_loc_deli(Il, pwin, zZResid(LOCATION_DELETE), head); 
/Imake some temporary pointers 

node *temp, *temp?1; 

temp = head; 

temp1 = temp; 

if (dig_del->completed()) 


ore ((temp != NULL) && (temp->data->desc != dig_del->_location)) 
oe = temp; 
temp = temp->next; 

if me, '= NULL) 
: (temp == head) 


head = temp->next; 


} 
else 
{ 
temp1->next = temp->next; 
} 
delete temp; 
list_dirty = TRUE; 


} 
} 
delete dig_del; 


//if all was successful, return true 
return(TRUE); 
} 


node* locations_list::find(zString &desc) 


{ 
node “temp; 
temp = head; 
while (temp != NULL) 
if (temp->data->desc == desc) 
return (temp); 


temp = temp->next; 


} 
return (NULL); 
} 


char“ 
locations_list::get_next() 


node “old = temp_ptr; 
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if (temp_ptr) temp_ptr = temp_ptr->next; 
if (old) return (old->data->desc); 
else return (NULL); 


} 
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LOCATIONS.CPP 


#include<stdio.h> 
#include<stdlib.h> 
#include<iostream.h> 
#include<string.h> 
#include “location.h" 


node::node() 


next = NULL; 
} 


locations::locations() 


head = NULL; 
f_name = "zzzz.dat": 


int 

locations::add() 

{ 
node “temp; 
char “string = "string here’; 
float lat = 123.45, Ing = 678.90: 
float GMT = 8.0; 
int DST = 1, lock; 


for (int x = 0; x<3; x++) 

{ 
cout << "\nenter a number..."; 
cin >> lock; 
temp = new node; 
strncpy(temp->data.desc, string, DESC_LENGTH):; 
/kemp->data.desc = string; 
temp->data.latitude = lat; 
temp->data.longitude = Ing; 
temp->data.GMT = GMT; 
temp->data.DST = DST; 
temp->data.lock = lock; 
temp->next = head; 
head = temp; 


return(1); 


} 


int 
locations::save() 


FILE “fp; 
node *temp; 
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} 


int 


fp = fopen(f_name, "wb"); 
if ('fp) return(0):; 

temp = head; 

while (temp != NULL) 


{ 
fwrite(&temp->data, sizeof(S_location), 1, fp); 
temp = temp->next: 


if (fclose(fp) '= 0) return(0); 
return(1); 


locations::load() 


{ 


FILE “fp; 
node *temp; 
int result; 
fp = fopen(f_name, "rb"); 
if (!fp) return(0); 
while(1) 
{ 
temp = new node; 
result = fread(&temp->data, sizeof(S_location), 1, fp); 
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if (result == Q) 
{ 
delete temp; 
break; 


temp->next = head; 
head = temp; 


} 
if (fclose(fp) != 0) return(0); 


return(1); 
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MENUFRAM.CPP 


II 

// menufram.cpp 

// 

#include “menufram.h" 


MenuFrame::MenuFrame(zWindow’ parent,zSizer* siz,DWORD winStyle, const char* 
title):zAppFrame(parent,siz,winStyle, title) { 
menu(new zMenu(this, ZResiId(MENU_MAIN))): 
menu()->setCommand(this,(CommandProc)&MenuFrame::doExit,|D_MENU_FILEEXIT); 
menu()->setCommand(this,(CommandProc)&MenuFrame::AddLocation, ID. MENU _LOCS_ ADD); 


} 
MenuFrame::~MenuFrame( { 
NULL; 
} 
int 
MenuFrame::doExit(zCommandEvt *ce) 
{ 
zMessage mess(app->rootWindow()," Exit MOONLITE?","",MB_OKCANCEL); 
if (mess.isOk()) app->quit(); 
return 1; 
} 


MenuFrame::AddLocation(zCommandEvt *ce) 


ll->add (this); 
} 


MenuFrame::command(zCommandEvt *ce) { 
tp->clearRect(): 
tp->moveTo(0,0); 
return 1; 
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MOONLITE.CPP 


MH 
HI 
I 
I 


MOONLITE.cpp 


#include <stdlib.h> 


#include "bmpshow.h 


#include "Zapp.hpp” 
#include "defines.h” 
#include "Il.h" 
#include "dialogs.h" 
#include "routines.h” 


locations_list “Il = new locations_list; 


class MenuFrame : public zZAppFrame{ 


private: 


BmpShowPane *bmpPane; 
zTextPane* tp; 


public: 


MenuFrame(zWindow’ parent,zSizer* siz, 


winStyle,const char* title); 


}: 


~MenuFrame(); 

virtual int command(zCommandE vt *); 
int doExit(ZCommandE vt *); 

int AddLocation(zCommandE vt *); 
int DeleteLocation(zCommandEvt *); 
int EditLocation(zCommandE vt *); 
int FileSave(zCommandE vt *); 

int FileOQpen(zCommandE vt *); 

int FileNew(zCommandEvt *); 

int FileSaveAs(zCommandEvt *); 

int SpotData(zCommandEvt *); 

int Event(zZCommandEvt *); 

int Position(zCommandE vt *); 

int kill(ZEvent *); 

doOk(); 


MenuFrame::MenuFrame(zWindow* parent,zSizer* siz, DWORD winStyle, const char* 
title):zAppFrame(parent,siz,winStyle,title) { 


bmpPane = new BmpShowPane(this, new zSizeWithParent):; 
bmpPane->show(); 

IEE “{p; 

fp =fopen("moonlite.bmp”,”r'); = //open the file 

if (fp) 
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DWORD 


{ 
fclose(fp); 
bmpPane->display("moonlite.bmp”); /lopen ok, display bmp 


seticon(new zicon(zResid(ICON_1))); 
menu(new zMenu(this, ZResld(MENU_MAIN))); 
menu()->setCommand(this,(CommandProc)&MenuFrame::doExit,/D_MENU_FILEEXIT); 
menu()->setCommand(this, (CommandProc)&MenuFrame::AddLocation,|ID_-MENU_LOCS_ADD); 
menu()->setCommand(this,(CommandProc)&MenuFrame::EditLocation,|ID_ MENU_LOCS_EDIT); 
menu()- 
>setCommand(this,(CommandProc)&MenuFrame::DeleteLocation,|ID_MENU_LOCS_DELETE); 
menu()->setCommand(this,(CommandProc)&MenuFrame::FileSave ID_MENU_FILESAVE); 
menu()->setCommand(this, (CommandProc)&MenuFrame::FileOpen,|ID_.MENU_FILEOPEN); 
menu()->setCommand(this,(CommandProc)&MenuFrame::FileNew,ID_.MENU_FILENEW); 
menu()->setCommand(this,(CommandProc)&MenuFrame::FileSaveAs,|ID_MENU_FILESAVEAS); 
menu()->setCommand(this (CommandProc)&MenuFrame::SpotData,|ID_MENU_SPOTDATA); 
menu()->setCommand(this,(CommandProc)&MenuFrame::Event,|D_MENU_DAILYEVENTS); 
menu()->setCommand(this,(CommandProc)&MenuFrame::Position, ID_MENU_POSITION); 


} 
MenuFrame::~MenuFrame() { 
NULL; 
} 
int 
MenuFrame::doExit(zZCommandEvt *ce) 
if (ll->peek_list_dirtyQ) 
{ 
zMessage “msg = new zMessage(this, "Locations have Changed!\nSave Changes?”, 
"WARNING", 
MB_YESNO | MB_ICONSTOP); 
if (msg->value() == IDYES) 


ll->save(); 


} 


app->quit(); 


MenuFrame::AddLocation(zCommandEvt *ce) 


ll->add_dialog(this, II); 
} 


MenuFrame::EditLocation(zCommandEvt *ce) 


ll->edit_dialog(this, Il); 
} 


MenuFrame::DeleteLocation(zCommandEvt *ce) 


ll->delete_dialog(this, II); 


IZ 


} 


MenuFrame::FileSave(zCommandEvt “ce) 


{ 
} 


MenuFrame::FileSaveAs(zCommandEvt *ce) 


{ 
} 


MenuFrame::FileOpen(zCommandE vt *ce) 


{ 
} 


MenuFrame::FileNew(zCommandEvt *ce) 


ll->save(); 


ll->saveas(this); 


ll->open_dialog(this); 


ll->clear(); 
return(1); 


} 


MenuFrame::SpotData(zCommandE vt *ce) 
{ 
routines “engine = new routinesiIl); 
engine->spotdata(); 
delete engine; 


return(1); 
} 
MenuFrame::Event(zCommandEvt *ce) 
{ 
routines *engine = new routinesiIl); 
engine->event(); 
delete engine; 
return(1); 
} 
MenuFrame::Position(zCommandEvt *ce) 
{ 
routines *engine = new routinesiIl); 
engine->position(); 
delete engine; 
return(1); 
} 


MenuFrame::command(zCommandE vt *ce) { 
tp->clearRect(); 
tp->moveTo(0,0); 
return 1; 
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int 
MenuFrame::kill(ZEvent *ev) 


return ( !Il->clear() ): 
void zApp::main() { 


MenuFrame *mainWnd=new MenuFrame(0,new zSizer(10,10,625,520),zS TDFRAME,”MOONLITE"); 
mainWnd->show(); 


if (!(ll->open()) 
{ 
zMessage *msg = new zMessage(app->rootWindow(), "MOONLITE.dat not found.\nNo locations 
loaded", 
"WARNING", 
MB_OK | MB_ICONSTOP); 
} 
go(); 


delete mainWnd; 
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ROUTINES.CPP 


I 
// routines.cpp 
I 


#include<alloc.h> 
#include “routines.h" 
#include "dialogs.h" 
#include “Il.h" 


routines::routines(locations_list “list_in) 


Il = list_in; 


} 


routines::spotdata() 


{ 
C_dig_spotdata “dig_spot = new C_dlg_spotdata(Il, ZResid(SPOT_DETAIL)): 
delete dig_spot: 


routines: :event() 


{ 
C_dig_Event “dilg_event = new C_dig_ Eventill, ZResid(EVENTS)): 
delete dig_event; 


} 


routines: :position() 

{ 

C_dig_Pos *pos_get = new C_dlig_Posi(ll, zZResld(POSITION)):; 

delete pos_get; 
lf POS_CHART_DLG “pos_chart = new POS_CHART_DLG(zResld(Position_Chart)); 
// delete pos_chart; 


} 
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